EXCEL VBA 複数のセル位置を記憶したいで

質問

こんにちわ。

EXCEL VBAでセル位置記憶方法について質問させていただきます。

あるシート中で以下例の様に４つの規則性のないセル(cells(1,1) cells(3,2),cells(5,4),cells(2,5)に対してOFFSET処理を４回したいので、X１、X2、X3、X4に各セル位置を記憶させたいので以下のように記述しましたが、うまく動きません。
どなたかセル位置を変数に記憶させる方法をご教授いただけませんでしょうか？

dim X1
dim X2
dim X3
dim X4

X1 = cells(1,1)
X2 = cells(3,2)
X3 = cells(5,4)
X4 = cells(2,5)

例）

Cells(X１).Select
ActiveCell.Offset(0, 2).Select

Cells(X２).Select
ActiveCell.Offset(0, 2).Select

Cells(X３).Select
ActiveCell.Offset(0, 2).Select

Cells(X４).Select
ActiveCell.Offset(0, 2).Select

よろしくお願い致します。

回答No.1

mt2008 · ベストアンサー

X1等をRangeオブジェクトとして宣言し、Set を使って代入します。

例）
　　Dim X1 As Range
　　Set X1 = Cells(1, 1)
　　X1.Offset(0, 2) = "ABC"

お礼

mt2008さん　早速のご連絡ありがとうございました。

ご教授いただきました方法でうまくいきました！
本当に助かりました！

超初心者ですがこれからも勉強を続けていきます。
ありがとうございました！

回答No.2

kmetu

Dim X1 As String
Dim X2 As String
Dim X3 As String
Dim X4 As String

X1 = Cells(1, 1).Address
X2 = Cells(3, 2).Address
X3 = Cells(5, 4).Address
X4 = Cells(2, 5).Address

Range(X1).Offset(0, 2).Select

Range(X2).Offset(0, 2).Select

Range(X3).Offset(0, 2).Select

Range(X4).Offset(0, 2).Select

などとかも利用できます。

お礼

kmetuさん　ご連絡ありがとうございました。

～.Addressという方法でも良いのですね。大変勉強になります！

まだ初心者ですが、これからも勉強を続けていきたいと思います。
この度は本当にありがとうございました！