Excel VBA - 在范围内增加列引用

【问题标题】：Excel VBA - increment column reference in rangeExcel VBA - 在范围内增加列引用
【发布时间】：2017-10-31 23:51:57
【问题描述】：

如何在下面的代码中增加列引用？只是列 ref，行值可以保持不变。

Range("w3:w54").PasteSpecial

我希望我能做这样的事情：

For i = 23 to 27
'start at column w (which is number 23)

Range(Columns(i)+"3":Columns(i)+"54").PasteSpecial  

Next

但这会引发错误。

有什么建议吗？

【问题讨论】：

【解决方案1】：

您可以使用Cells(Row, Column)，因此您可以轻松地使用数值递增Column 部分，而无需使用从数字到字母的转换函数。

For i = 23 To 27
    'start at column w (which is number 23)
    Range(Cells(3, i), Cells(24, i)).PasteSpecial
Next

【讨论】：

正是我想要的！非常感谢您的宝贵时间。
...Range("3:24").Columns(i)... 也是可能的，而paste 将根据需要扩展范围。在大多数情况下，...Cells(3, i).Paste 也可以完成这项工作；）