请问一下，我这个VBA代码哪里出错了？（提示range对象作用于worksheet时失败）

Sub test()
Dim num As Integer, i As Integer, j As Integer, k As Integer, num1 As Integer
num = Sheet1.Range("A1").CurrentRegion.Rows.Count
num1 = num * 2 - 2
For i = 1 To num1 Step 2
Sheet1.Range("1:1").Copy Destination:=Sheet2.Range("A" & i)
Next i
For j = 1 To num
k = 2 * j - 2
Sheet1.Range("j:j").Copy Destination:=Sheet2.Range("A" & k)
Next
End Sub

k = 2 * j - 2

且

j=1

就是

2*1-2=0

结果是range("A0") 。单元格必须是从1行开始的。

看不明白你代码目的是什么，但你的错误是在于K不能等于0的。

或改成

k = 2 * j - 1