使用整数作为列引用

大家好我正在尝试使用“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

使用整数作为列引用

回答

相关问题