みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

[VBA]別ブックにあるシートの終端セル位置の取得

こんにちは、VBA(EXCEL2000)の質問です。

Book1のSheet1をアクティブにしたままでBook2のSheet1のA列の終端セル位置を取得したいと思っています。
WorkBooks("Book2").WorkSheets("Sheet1").Range("A65536").End(xlUp).Select
で、取得できるかと思ったのですが、調べてみたらSelectメソッドは対象シートが
アクティブでないとエラーになるとの事でしたので、使えませんでした。

他にこれの代わりになるような書き方があれば教えて頂きたく思います。
また、VBAでは実現不可能だという場合もその旨を教えて頂ければ幸いです。

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

投稿日時 - 2008-02-27 18:04:01

QNo.3815100

困ってます

質問者が選んだベストアンサー

こんにちは。

Dim r As Range
Set r = WorkBooks("Book2").WorkSheets("Sheet1").Range("A65536").End(xlUp)
MsgBox r.Address

のように Select しなければ良いですよ。上記の変数 r は最終セルと同じ
ように使えます。例えば、

  行番号  r.Row
  列番号  r.Column
  代 入  r.Value = "Sample"

などのように。

投稿日時 - 2008-02-27 18:17:59

お礼

>KenKen_SPさん
回答ありがとうございます。
教えて頂いた通りに実行してみたところ、望んだ結果が得られました。
とても助かりました。ありがとうございます!

投稿日時 - 2008-02-27 18:46:31

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問