Скопируйте и вставьте данные в один и тот же диапазон нескольких листов с помощью кода модуля VBA.

Question

Да, я новичок.

Мне нужно скопировать определенную область ячеек («B6: C36») с одного листа (называемого «ФАЙЛ МАСТЕР») на все другие листы в той же книге.

После этого мне нужно назначить этот новый макрос макросу для кнопки, существующей в основной таблице файлов (поэтому этот макрос должен иметь имя / подпункт, иначе я не могу назначить его кнопке).

Сказав, что я пытался создать макрос с помощью функции записи MS Excel, и он работает. Но у него есть серьезный недостаток: этот процесс автоматического кодирования использовал / провозглашал имя каждого отдельного листа в исходном коде. Поэтому, если я добавлю новый лист, этот макрос больше не будет работать правильно.

Надеюсь, что было достаточно ясно

Спасибо всем заранее.

Answer 1

Вы можете изменить код и попробовать следующее:

Option Explicit

Sub CopyYes()

    Dim ws As Worksheet

    With ThisWorkbook
        'Copy the range
        .Worksheets("FILE MASTER").Range("B6:C36").Copy

        'Loop sheets
        For Each ws In .Worksheets

            With ws
                'Avoid FILE MASTER
                If .Name <> "FILE MASTER" Then
                    'Paste only values in A1 of each sheet
                    .Range("A1").PasteSpecial xlPasteValues
                End If

            End With

        Next ws

    End With

End Sub

Answer 2

Option Explicit

Sub CopyYes ()

Dim ws As Worksheet

With ThisWorkbook
    'Copy the range
    .Worksheets("FILE MASTER").Range("B6:C36").Copy

    'Loop sheets
    For Each ws In .Worksheets

        With ws
            'Avoid FILE MASTER
            If .Name <> "FILE MASTER" Then
                'Paste values and formats in B6:C36 of each sheet
                .Range("B6:C36").PasteSpecial xlPasteValues
                .Range("B6:C36").PasteSpecial xlPasteFormats
            End If

        End With

    Next ws

End With

End Sub