Как скопировать одну ячейку в несколько листов в Excel?

Question

У меня есть около 30 листов, и мне нужно поместить свое имя в верхнем левом углу (ячейка A1). Есть ли простой способ сделать это без необходимости писать или вставлять его в каждый лист?

Answer 1

Выделите все листы (выберите первый лист, удерживайте клавишу Shift, выберите последний лист)

Введите свое имя в A1

Нажмите Enter.

Это сделает это для людей, не имеющих кода.

Answer 2

Это должно сделать это:

Sub PutMyNameInA1()
    Dim w As Worksheet

    For Each w In ThisWorkbook.Worksheets
        w.Range("A1") = "My Name"
    Next w
End Sub

Код должен быть помещен в стандартный модуль кода. (Alt+F11, Вставить> Модуль, вставить это, изменить имя в кавычках, Выполнить /F5 для выполнения)