Excel VBA：通过命令按钮为所有工作表复制和粘贴数据

Question

I'm new to VBA and need some help with implementing a tool:

Essentially, I want to create a CommandButton that automatically copies range D9:L18 and pastes it to Q9:Y18 for my active worksheet. Furthermore, once I press the button, I want this process to be repeated for all other worksheets (around 40) with the exception of two specific ones.

Can you please give me a hand with this?

Your help is much appreciated - many thanks indeed.

Edit:

There is an error @ Sheet.Range("D12:L18").Select for some reason - perhaps you can help me? Thanks.

Private Sub CommandButton1_Click()
    Dim Sheet As Worksheet

    For Each Sheet In ThisWorkbook.Worksheets
        If Sheet.Name <> "Definitions" And Sheet.Name <> "fx" And Sheet.Name <> "Needs" Then

            Sheet.Range("D12:L18").Select
            Selection.Copy
            Sheet.Range("Q12:Y18").Select
                Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        End If
    Next
End Sub

Answer 1

Recording a macro to copy and paste the cells you want is the best way to get the code to copy a single sheet.

But to do the work in all your sheets, use this:

Private Sub CommandButton1_Click() 
    Dim Sheet As Worksheet 
    For Each Sheet In ThisWorkbook.Worksheets 
        If Sheet.Name <> "Definitions" And Sheet.Name <> "fx" And Sheet.Name <> "Needs" Then 
            Sheet.Range("D12:L18").Copy 
            Sheet.Range("Q12:Y18").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
        End If 
    Next 
End Sub

---

To add the button, go to the developer tab in excel, add an ActiveX button. Design mode will be turned on. Double click that button, the code to be run when it's clicked will be shown in VBA editor. Put your copy code there inside the Private Sub YourButtonName_Click() method.

To make the button work, turn off the design mode. (That's done in the developer tab in excel window)