2017-05-31 44 views
1

如何增加下面代碼中的列參考?只是列參考,行值可以保持不變。Excel VBA - 範圍內的增量列參考

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    

但是,這將引發錯誤。

有什麼建議嗎?

回答

3

您可以使用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 
+0

正是我想要的!非常感謝您的時間。 –

+1

另外'... Range(「3:24」)。列(i)...'是可能的,而'paste'會根據需要擴展範圍。在大多數情況下,'... Cells(3,i).Paste'將完成這項工作;) –