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

Question

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

“税单详情”= 主电子表格 [这是 sheet1]

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

“Yardi Props Not on Tax Bill”= 要排除的工作表 [这是 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