如何使用vb处理excel表格返回查找到的单元格的行号与列号
如何使用vb处理excel表格返回查找到的单元格的行号与列号
程序代码：
Sub test()
Dim rng As Range
Dim rg1 As Range
Dim r As Integer: Dim c As Integer
Set rng = Sheet1.Range("a1").CurrentRegion
Set rg1 = rng.Find("宁羽凡")
If Not rg1 Is Nothing Then
r = rg1.Row
c = rg1.Column
MsgBox "所在行：" & r & "所在列：" & c
Else
MsgBox "没有找到记录！"
End If
End Sub
'以上是VBA中的代码，修改后可以使用。