使用整數作爲列引用

大家好我正在嘗試使用「cl.column」來建立一個在循環中使用的列。我的代碼的相關部分如下。使用整數作爲列引用

我遇到的問題是，因爲cl.column將列存儲爲一個數字，我不知道如何在循環中引用它，因爲它不是一個字母。

for each cl in activesheet.range("A1:BZ1") 
if instr(cl, "Deuda") > 0 then 
StoredColumn = cl.column 
end if 
next cl 

for each cl In Workbooks(MesActual).Worksheets("Deuda").Range(ColumnA & "8", ColumnA & CounterA)

來源

2013-07-09 Sean Connecticut

http://stackoverflow.com/questions/12796973/vba-function-to-convert-column-number-to-letter – gareththegeek

謝謝你，非常完美，對不起問一個多餘的問題，我沒有考慮使用函數，所以我不能找到它 –

我有點困惑你的問題。您將「c.column」存儲在「StoredColumn」中，但找不到您要使用它的位置。

但是，每當我需要使用Range對象，並且如果我有列號而不是列字母，我會嘗試按如下所示使用。可能是這可以幫助你。

Sub test() 
    For Each cel In Range("A1:Z1") 
    colno = cel.Column 
    ActiveSheet.Range(Cells(1, cel.Column).Address) = cel.Column 
    Next 
End Sub

感謝，拉瑪納

來源

2013-07-09 11:55:42 Ramana

使用整數作爲列引用

回答

相關問題