0

こんにちは、私は現在「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)
4

1 に答える 1

0

私はあなたの質問と少し混乱しています。「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

ありがとう、ラマナ

于 2013-07-09T11:55:42.010 に答える