Автоматизируйте форматирование заголовков листа для всех остальных листов с помощью макроса Excel

Question

Как, я новичок в макросе.Я хочу помочь в выполнении нижеприведенной задачи.Я хочу форматировать заголовок на новом листе, но не копировать его с другого листа, а форматировать соответствующие ячейки с помощью макроса / скрипта.

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