変数をrangeの中にセットする

Question

Dim k(1) As Integer
Dim c(1) As Variant
Dim d(1) As Variant


'k(1)には数字(Integer)がセットされる 

Set c(1) =Workbooks(file1).WorkSheets(sheet1).Range(Cells(2,k(1))) [ア]

Set d(1) =Workbooks(file2).WorkSheets(sheet1).Range("D2")

c(1).Copy(d(1))

[ア]の部分のRange(Cells(2,k(1))
のk(1)の部分に数字がセットされずに
アプリケーション定義またはオブジェクトエラー
となります。

Range(Cells(1,2))
の場合はrangeの中にセル1,2がセットされて取得できるのですが、
変数の中に入っている数字をセットするにはどうすればよいでしょうか？

Answer 1

直近のQAを熟読すれば解決できるかと。
https://teratail.com/questions/112760

Answer 2

k(1)に数値を代入している部分のコードを記載していただかないと誰も回答できませんよ。

Comments

[rvsezuki]

k(1) = Workbooks(fileA).WorkSheets(sheet1).Range("D2:Z4").Find("TEST").Column

といった感じでD2からZ4の範囲内でTESTという文字に合致する部分があった列番号を
抜き出してきてk(1)に入れています。

[Mustang32861341]

k(1)への代入には問題ありませんね。
Range(Cells(1,2))としたときにエラーが出なかったとのことですが、そもそも

Set c(1) =Workbooks(file1).WorkSheets(sheet1).Cells(2,k(1))

では望む結果は得られないのでしょうか？

Answer 3

単純に質問に回答するならこうなります。

k(1) = 任意の値

任意の値の部分に何を入れるかはこの質問内容では答えようがないので、ご自分で考えてください。

Comments

[rvsezuki]

k(1)には5,とか4とか数字がセットされます