多列复制为一列错误

wggx4 · 发表于 2020-1-31 07:15

看到多列复制为一列的帖子，仿造写了个，不知道怎么提示错误1004，麻烦大神看看错在哪里，谢谢！！
Sub fuzhi2()
a1 = Sheet1.[a65536].End(xlUp).Row
For i = 2 To 6
xi = (i - 2) * a1
Sheet1.Cells(3, i).Resize(a1).Copy Sheet4.Cells(xi, 1) '复制表一列i
Next
End Sub

liulang0808 · 发表于 2020-1-31 07:31

xi = (i - 2) * a1，在i=2 的时候xi = 0，这个地方，楼主重新设置下吧

wggx4 · 发表于 2020-1-31 07:47

啊，谢谢，我找了半天。

		自动登录	找回密码
密码			免费注册

[求助] 多列复制为一列错误

评分

最新热点 /1