[已解决]请问把VBA的按钮放在另外一个sheet的时候，点击按钮会错误？

johnj4321

本来按钮是放在sheet5的，一切相安无事，但是由于其他原因，需要把按钮放在sheet4或者其他sheet，但是点击按钮的时候，却运行失败了，显示如图。请问该怎么修改呢？

Sub 复制与唯一值()
    Sheet5.Range("A:D").ClearContents
   
    Sheet7.Range("F1:F65536").Copy
    Sheet5.Range("C1").Select
    Sheet5.Paste
    Application.CutCopyMode = False
   
    Sheet7.Range("H1:H65536").Copy
    Sheet5.Range("B1").Select
    Sheet5.Paste
    Application.CutCopyMode = False
   
    Sheet7.Range("X1:X65536").Copy
    Sheet5.Range("A1").Select
    Sheet5.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
   

   
   
    Dim X As Integer
   X = [A65536].End(xlUp).Row
   Sheet5.Range("A1:A" & X).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "D1"), Unique:=True
End Sub

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-6-29 08:33

Sub 复制与唯一值()
    Sheet5.Range("A:D").ClearContents
   Sheet5.Select
    Sheet7.Range("F1:F65536").Copy   
    Sheet5.Range("C1").Select
    Sheet5.Paste
    Application.CutCopyMode = False
   
    Sheet7.Range("H1:H65536").Copy
    Sheet5.Range("B1").Select
    Sheet5.Paste
    Application.CutCopyMode = False
   
    Sheet7.Range("X1:X65536").Copy
    Sheet5.Range("A1").Select
    Sheet5.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
   

   
   
    Dim X As Integer
   X = [A65536].End(xlUp).Row
   Sheet5.Range("A1:A" & X).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "D1"), Unique:=True
       Sheet4.Select
End Sub
sheet5要在活动状态才能购select吧

跳转到最佳答案楼层

苏子龙

Sub 复制与唯一值()
    Sheet5.Range("A:D").ClearContents
   Sheet5.Select
    Sheet7.Range("F1:F65536").Copy   
    Sheet5.Range("C1").Select
    Sheet5.Paste
    Application.CutCopyMode = False
   
    Sheet7.Range("H1:H65536").Copy
    Sheet5.Range("B1").Select
    Sheet5.Paste
    Application.CutCopyMode = False
   
    Sheet7.Range("X1:X65536").Copy
    Sheet5.Range("A1").Select
    Sheet5.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
   

   
   
    Dim X As Integer
   X = [A65536].End(xlUp).Row
   Sheet5.Range("A1:A" & X).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "D1"), Unique:=True
       Sheet4.Select
End Sub
sheet5要在活动状态才能购select吧