将变量复制到单元格报错

vivid_ck

请教高手个问题：想将rng变量值所在单元格的整列复制到sheet1使用区域外第1行第N+2列，这句该如何写，我写了这段报错说：range作用域对象Global时失败。
cn = Sheet1.UsedRange.Columns.Count + 2
rng.EntireColumn.Copy Range(1, cn)
这是为啥呀
谢谢！

vivid_ck

发现了，Range(1, cn)写反了，应该写成 Range("cn"&1),哈哈

vivid_ck

好像还是没达到效果,该如何写这段代码呢

fewly

Sub hhk()
cn = Sheet1.UsedRange.Columns.Count + 2
For Each Rng In Range(Cells(1, 1), Cells(1, cn))

aa = Rng.Address
nn = Rng.Columns() + 2 + cn
Rng.EntireColumn.Copy Cells(1, nn)
Next

End Sub

fewly

cn = Sheet1.UsedRange.Columns.Count + 2
For Each Rng In Range(Cells(1, 1), Cells(1, cn))

aa = Rng.Address
nn = Rng.Columns() + 2 + cn
Rng.EntireColumn.Copy Cells(1, nn)
Next

fewly

试一下这个例子看看

vivid_ck

fewly 发表于 2020-4-3 12:04
试一下这个例子看看

非常感谢
后来我用了这个：
cn =  Sheet1.UsedRange.Columns.Count + 2
rng.EntireColumn.Copy Cells(1, cn)
是range和Cells用错了，换了Cells就没问题了