Используйте целое число как ссылку на столбец

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

Я немного растерялся с вашим вопросом. Вы сохраняете «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 

Спасибо, Рамана