excel vba 选择性复制粘贴数值问题

Sub aa()
Dim x
If Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a1").Value = "" Then
x = 1
ElseIf Worksheets("sheet2").Range("a56565").End(xlUp).Row = 1 And Worksheets("sheet2").Range("a2").Value = "" Then
x = 2
Else
x = Worksheets("sheet2").Range("a56565").End(xlUp).Row + 1
End If
Worksheets("Sheet1").Range("a2:k2").Copy
Worksheets("sheet2").Range("A" & x).PasteSpecial Paste:=xlPasteValues
End Sub

测试通过.
这个很简单了啊.
首先判断A1是不是空的,如果是空的,Worksheets("sheet2").Range("a56565").End(xlUp).Row =1,所以就复制到A1
但是当A1不等于空,A2是空的时候,Worksheets("sheet2").Range("a56565").End(xlUp).Row 仍然=1,复制的时候照样会在A1,所以要加两个if判断一下.这样才能保证你点一下就复制一下.