将主工作表中的第一行/标题行粘贴到工作簿中的特定工作表

Question

我有一个包含八（8）个工作表的工作簿。我想从主/主工作表中复制标题行（第一行）并粘贴到某些电子表格的第一行（不是全部）。

“Tax Bill Detail”=主电子表格[这是sheet1]

“属性信息”=要排除[这是sheet2]的工作表

“Yardi Props Not on Tax Bill”=工作表排除[this is sheet7]

“CSV”=排除[这是sheet8]的工作表

以下代码是我目前所拥有的。有没有更有效的方法来编写这段代码？

Dim ws As Worksheet

Tax.Range("1:1").Copy

For Each ws In ThisWorkbook.Worksheets
    If ws.name <> "Tax Bill Detail" And ws.name <> "Property Info" And ws.name <> "Yardi Props Not on Tax Bill" And ws.name <> "CSV" Then
    ws.Range("1:1").PasteSpecial xlPasteAll
    End If
Next

Answer 1

可能更高效，也更容易阅读/理解：

Dim ws As Worksheet

Tax.Range("1:1").Copy

For Each ws In ThisWorkbook.Worksheets

    Select Case ws.Name
        Case "Tax Bill Detail", "Property Info", "Yardi Props Not on Tax Bill", "CSV"
            'DO NOTHING FOR THESE SHEETS
        Case Else
            ws.Range("1:1").PasteSpecial xlPasteAll
    End Select
Next