找到H列第一個出現"#N/A" 的行數,用VBA怎麼表達
时间: 2023-07-19 22:03:18 浏览: 63
可以使用以下VBA代码来找到H列第一个出现"#N/A"的行数:
```
Sub FindNA()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, "H").End(xlUp).Row
For i = 1 To LastRow
If IsError(Cells(i, "H").Value) Then
If Cells(i, "H").Value = CVErr(xlErrNA) Then
MsgBox "The first #N/A in column H is at row " & i
Exit Sub
End If
End If
Next i
MsgBox "No #N/A found in column H"
End Sub
```
这段代码首先确定了H列中最后一个非空单元格所在的行数,然后循环遍历每一行,检查单元格是否包含错误值,并且判断是否为"#N/A"。如果找到了第一个出现的"#N/A",则弹出消息框显示该行行数,退出循环。如果遍历完所有行都没有找到"#N/A",则弹出另一个消息框提示未找到。
相关问题
找到H列第一個出現NA 的行數,用VBA怎麼表達
以下是用VBA实现找到H列第一个出现NA的行数的代码:
```
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row '获取H列最后一行的行数
Dim i As Long
For i = 1 To lastRow
If IsError(Range("H" & i).Value) And Range("H" & i).Value = CVErr(xlErrNA) Then '判断是否为#N/A错误
MsgBox "第一个出现#N/A错误的行数为:" & i '输出行数
Exit For '找到第一个后直接退出循环
End If
Next i
```
以上代码假设需要在当前活动工作表中查找H列第一个出现NA的行数,并在找到后弹出消息框显示行数。如果需要在其他工作表中查找,则需要修改`ActiveSheet`为对应的工作表对象。
找到H列第一個出現“錢" 的行數,用VBA怎麼表達
以下是一个示例VBA代码,可以找到H列第一个出现“錢”的行数:
```
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Range("H" & i).Value = "錢" Then
MsgBox "第" & i & "行第H列是第一个出现“錢”字的行"
Exit For
End If
Next i
```
这段代码会从第1行开始逐行搜索H列,如果找到了第一个出现“錢”的单元格,就会弹出一个消息框显示该单元格所在的行数。如果没有找到,就不会有任何反应。注意,这段代码假定当前活动的工作表上有数据,并且数据都在连续的区域内。如果数据不是连续的,或者在其他工作表上,需要进行相应的修改。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)