ExcelのVBAについて。


Range("B65536").End(xlUp).Offset(1, 0)で取得したセルのアドレスを保持しておく方法はありませんでしょうか?

方法.Offset(2, 0)="山田"
方法.Offset(3, 0)="100円"

などと、取得したアドレスを再利用したいと思っています。

回答の条件
  • 1人2回まで
  • 登録:2008/04/24 11:14:07
  • 終了:2008/04/24 12:10:32

ベストアンサー

id:dadan_dan No.1

dadan_dan回答回数20ベストアンサー獲得回数12008/04/24 11:28:03

ポイント60pt

このような感じでしょうか。


Sub sample()

Dim X As Variant

X = Range("B65536").End(xlUp).Offset(1, 0).Address

Range(X).Offset(2, 0).Value = "山田"

Range(X).Offset(3, 0).Value = "100円"

End Sub

id:tetlis

ありがとうございました。

2008/04/24 12:09:18
  • id:Mook
    どうしてもアドレスで保持する必要があるのですか?

    オブジェクトとして、Range を使用したほうが自然ですし、
    効率的だと思うのですが。

    Sub sample()
     Dim X As Range
     Set X = Range("B65536").End(xlUp).Offset(1, 0)
     X.Offset(2, 0).Value = "山田"
     X.Offset(3, 0).Value = "100円"
    End Sub
  • id:tetlis
    > どうしてもアドレスで保持する必要があるのですか?

    ありません。
    それに、書いていただいたコードの方が、私の求めているものでした。
    そのような事が出来るとは思わなかったので、回りくどく "アドレスの保持" という方法をお聞きしていました。

    Mookさん、たびたびありがとうございます。


この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません