Question

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

Answer 1

我对你的问题感到困惑。您在“StoredColumn”中存储“c.column”但无法找到您尝试使用它的位置。

但是，每当我需要使用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

谢谢，拉玛纳

使用整数作为列引用

1 个答案: