excel - 使用宏 excel 将工作表标题自动格式化为所有其他工作表

Question

因为，我是宏的新手。我需要帮助来完成以下任务。我想要新工作表中的标题格式，但不是从另一张工作表中复制它，而是通过宏/脚本格式化相应的单元格。

标签： excelvba

Answer 1

如果其他人正在寻找完成任务的基本代码，这只是为了提供帮助。

Sub CopyHeaderstosheets()

Dim wsX As Worksheet
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Sheets("Sheet1")

    For Each wsX In ThisWorkbook.Worksheets
        If wsX.Name <> "Sheet1" Then
            ws1.Range("A1:F1").Copy
            With wsX
                .Range("A1").PasteSpecial Paste:=xlPasteAll

                'Use this line if you don't want to paste the values
                '.Range("A1").PasteSpecial Paste:=xlPasteFormats

                .Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
                .Rows(1).RowHeight = ws1.Rows(1).RowHeight
            End With
        End If
    Next wsX

Application.CutCopyMode = False
End Sub