我正在编写一个宏，该宏计算某个工作表中的列数，然后将该工作表内容复制到同一工作簿中的Sheet1中。
Sub test()
Dim LastCol As Long
Set currentsheet = ActiveWorkbook.Sheets("Sheet1")
LastCol = Sheets("APage").Range("A1").End(xlToRight).Column
Sheets("APage").Range("1:1" & LastCol1).Copy
currentsheet.Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
特殊之处在于工作表名称可以是："APage", "BPage", "10Page"等。因此第一个名称可以不同，但"Page"始终保留在工作表名称中。如何*在VBA中正确使用a说来使用所有名为Sheets的工作表，并要求在工作表名称开头带有任何字母？谢谢！
为了遍历所有带有通配符名称的工作表，您可以执行以下操作：
Sub LoopThroughWorksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name Like "*Page" Then
'Do whatever with this particular sheet
End If
Next ws
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句