VBA find查找行号和列号的方法

 MsgBox Val(Workbooks().Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).Row)'查找最大行号

 MsgBox Val(Workbooks().Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).column)'查找最大列号
存在数据的最大行列号:
Sub 查找数据单元格的最大行列号()
MsgBox "数据单元格的最大行号： " & Cells.Find("*", , , , 1, 2).Row
MsgBox "数据单元格的最大列号： " & Cells.Find("*", , , , 2, 2).Column
End Sub

For循环例子

Sub 选择文件提取文件名()
  Dim i%
  Dim arr()
  Dim reg As New RegExp
  With reg
    .Global = True
    .Pattern = "[^\\]+(?=\.xls.?$)"
  End With
  arr = Application.GetOpenFilename("文件类型 (*.xls;),*.xls;", , "选择文件", , True)
  For i = LBound(arr) To UBound(arr)
    Set mh = reg.Execute(arr(i))
    Cells(i, ).Value = mh()
  Next
End Sub