求助 从一个表格选择性复制粘贴到另一个表格的宏命令出错

2011wky777

从一个表格选择性复制粘贴到另一个表格的宏命令出错

我从表格sheet1的A1:F9选择性粘贴到表格sheet2,宏命令如下：

Sub Macro1()

    Sheets("sheet1").Select
    Range("A1:F9").Select
    Selection.Copy
    Sheets("sheet2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select


End Sub

在宏命令模块中能正常运行，但把这段代码放在命令按钮框中就无法运行了 什么原因，代码无变化啊 仅仅是按钮框
如下：

Sub CommandButton1_Click()

    Sheets("sheet1").Select
    Range("A1:F9").Select
    Selection.Copy
    Sheets("sheet2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select


End Sub

2011wky777

朱荣兴 发表于 2017-3-22 16:46
不必激活工作表
Sub CommandButton1_Click()
    Sheets("sheet1").Range("A1:F9").Copy

谢谢老师!!!!!!!!!