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

11 MsgBox Val(Workbooks(1).Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).Row)'查找最大行号
22 
33 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循环例子

1Sub 选择文件提取文件名()
2  Dim i%
3  Dim arr()
4  Dim reg As New RegExp
5  With reg
6    .Global = True
7    .Pattern = "[^\\]+(?=\.xls.?$)"
8  End With
9  arr = Application.GetOpenFilename("文件类型 (*.xls;),*.xls;", , "选择文件", , True)
10  For i = LBound(arr) To UBound(arr)
11    Set mh = reg.Execute(arr(i))
12    Cells(i, 1).Value = mh(0)
13  Next
14End Sub