在H列找到第一個出現“錢" 所在行的行數,用VBA怎麼表達
时间: 2023-11-27 16:51:21 浏览: 28
可以使用以下的VBA代码来实现:
```
Dim searchRange As Range
Dim searchResult As Range
Set searchRange = Range("H:H")
Set searchResult = searchRange.Find("錢", LookIn:=xlValues)
If Not searchResult Is Nothing Then
MsgBox "第一個出現“錢”所在行的行數為:" & searchResult.Row
Else
MsgBox "未找到“錢”"
End If
```
这段代码首先定义了一个变量`searchRange`表示要在哪个范围内查找,这里是整列H。然后使用`Find`方法在这个范围内查找“錢”,并将结果保存在`searchResult`变量中。如果找到了结果,就使用`Row`属性获取该单元格所在行的行号,然后弹出消息框显示结果。如果未找到,就弹出另一个消息框显示未找到的信息。
相关问题
找到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)