如何使用vb处理excel表格返回查找到的单元格的行号与列号
如何使用vb处理excel表格返回查找到的单元格的行号与列号
2017-12-07 10:41
程序代码：
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
2017-12-07 12:02
2017-12-11 18:45