エクセル VBA で列番号を足す方法は？

こんにちは。大変お世話になっています。

Set btd = Range("d2:z2").Find(bmd)
といったVBAを使用し、あるセル番地を抜き出しました。
そのセルの列番号のみを抜き出して、そこから列番号を右へいくつか動かしたいのですが、その方法がわかりません。

別の定義で出した行をｇとして
Cells(g, btd.Column)でセルの指定をしました。
このセルがa1だとします。
次の作業として、b1のセルを指定したいのですが、その方法がわからないのです。
b=Cells(g, btd.Column) と定義して、
b.Offset(0, 1).Value
などと書いてもエラーになってしまいます。
行番号なら数字を足したり引いたりすればできたのですが、アルファベットの列番号の場合はどうしたら良いのでしょうか？

すみませんがよろしくお願いします。

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2007/03/16 11:34

＞b=Cells(g, btd.Column) と定義して、

Set b=Cells(g, btd.Column)
のようにしないとb にセルを定義した事になりません。

若しくは、Cells(g, btd.Column + 1)

この回答へのお礼

hana-hana3さん、いつもありがとうございます。
Set　を足したらできました！
無知ですみません・・・。
助かりました。ありがとうございました。

お礼日時：2007/03/16 12:19

No.2 回答者： merlionXX 回答日時： 2007/03/16 11:42

なんだかよくわかりませんが、足し算でいけませんか？

Sub test()
Set x = Range("B1")
MsgBox Cells(x.Row + 2, x.Column + 2).Address
End Sub