Question

保证我是新人。

我需要将特定单元格区域（“ B6：C36”）从单个工作表（名为“ FILE MASTER”）复制到同一工作簿中的所有其他工作表。

此后，我需要将此全新的宏分配给文件主工作表中现有的Button（因此该宏必须具有名称/子名称，否则我无法将其分配给Button）。

已经说过，我尝试使用MS Excel的记录功能创建一个宏，并且它可以工作。但这有一个严重的缺点：这种自动编码过程已使用/阐明了源代码中每个工作表的名称。因此，如果我添加一个新的工作表，则此宏将无法正常工作。

希望足够清晰

先谢谢大家。

Answer 1

您可以更改代码，然后尝试以下操作：

res.send(arena)

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

结束子

使用VBA模块代码

2 个答案: