我對 VBA 非常陌生并錄制了一個宏，但我想更新錄制的宏以使其動態地處理多個作業表，因為作業表名稱目前是硬編碼的。
例如，
Sub FormattingFinal()
Sheets("Template Format").Select
Range("A6:G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hamilton").Select
Range("A6").Select
ActiveSheet.Paste
End Sub
我希望對“模板格式”進行硬編碼，因為我總是想從此作業表中復制，但更改“漢密爾頓”以回圈瀏覽我指定的作業表串列（作業簿中的所有作業表，除了兩張作業表）。我該怎么做呢？
uj5u.com熱心網友回復：
Sub FormattingFinal()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
'change Exclude1 and 2 to the sheets you want
If sh.Name <> "Exclude1" And sh.Name <> "Exclude2" Then
'The first argument to Copy is the destination, so you can do it all in one line
ThisWorkbook.Worksheets("Template Format").Range("A6:G8").Copy sh.Range("A6:G8")
End If
Next sh
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/514485.html
標籤：擅长vba