Question

求教以下VBA有什么问题，运行出错

Sub mmm()
Application.ScreenUpdating = False
Sheet1.Select
Dim i As Integer
i = Sheet3.[a65536].End(xlUp).Row
Range("A2：AG8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("汇总").Select
If i = 1 Then
Range("A" & i).Select
ActiveSheet.Paste
Else
Range("A" & i + 2).Select
ActiveSheet.Paste
End If
End Sub
这个宏有什么问题，运行时说Rang的）Pastespecial 有问题，求教。

Answer 1

Sub mmm()
    Application.ScreenUpdating = False
    Sheet1.Select
    Dim i As Integer
    i = Sheet3.[a65536].End(xlUp).Row
    Range("A2：AG8").Select'这里冒号应该改为半角
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("汇总").Select
    If i = 1 Then
        Range("A" & i).Select
        ActiveSheet.Paste
    Else
        Range("A" & i + 2).Select
        ActiveSheet.Paste
   End If
End Sub

 其他问题貌似没看到

Answer 2

愿朋友在感恩中成长