找到H列第一個出現“錢" 的行數,用VBA怎麼表達
时间: 2023-11-27 13:50:45 浏览: 34
以下是一个示例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列,如果找到了第一个出现“錢”的单元格,就会弹出一个消息框显示该单元格所在的行数。如果没有找到,就不会有任何反应。注意,这段代码假定当前活动的工作表上有数据,并且数据都在连续的区域内。如果数据不是连续的,或者在其他工作表上,需要进行相应的修改。
相关问题
找到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`为对应的工作表对象。
查找一列文字中包含某一文本的单元格所在行数的vba代码
以下是一个简单的VBA代码,可以在Excel中查找一列文本中包含指定文本的单元格所在的行数。
```VBA
Sub FindText()
Dim searchValue As String
Dim lastRow As Long
Dim i As Long
'指定要查找的文本
searchValue = "要查找的文本"
'找到指定列的最后一行
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
'循环遍历每一行,查找包含指定文本的单元格
For i = 1 To lastRow
If InStr(Cells(i, "A").Value, searchValue) > 0 Then
'如果包含指定文本,则在Immediate窗口中显示该行数
Debug.Print "包含指定文本的行数是: " & i
End If
Next i
End Sub
```
请将代码中的“要查找的文本”替换为您要查找的实际文本,并将“Cells(i, "A")”中的“A”更改为包含您要搜索的文本列的列字母。
相关推荐
![](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)