1 MsgBox Val(Workbooks(1).Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).Row)'查找最大行号
2 
3 MsgBox Val(Workbooks(1).Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).column)'查找最大列号存在数据的最大行列号:Sub 查找数据单元格的最大行列号()MsgBox "数据单元格的最大行号： " & Cells.Find("*", , , , 1, 2).RowMsgBox "数据单元格的最大列号： " & Cells.Find("*", , , , 2, 2).ColumnEnd 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, 1).Value = mh(0)
  Next
End Sub