Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8583 / 13645 ツリー ←次へ | 前へ→

【32446】Endプロパティを使って範囲設定する TOTO 05/12/15(木) 13:11 質問[未読]
【32447】Re:Endプロパティを使って範囲設定する TOTO 05/12/15(木) 13:14 質問[未読]
【32450】Re:Endプロパティを使って範囲設定する m2m10 05/12/15(木) 14:15 回答[未読]
【32471】Re:Endプロパティを使って範囲設定する TOTO 05/12/15(木) 17:08 お礼[未読]
【32452】Re:Endプロパティを使って範囲設定する Kein 05/12/15(木) 16:07 質問[未読]
【32470】Re:Endプロパティを使って範囲設定する TOTO 05/12/15(木) 17:06 お礼[未読]

【32446】Endプロパティを使って範囲設定する
質問  TOTO  - 05/12/15(木) 13:11 -

引用なし
パスワード
   A    B    C    D    E    F
7408    0    0    0    0    0
7408    0    0    0    0    0
2064    2050    0    0    0    0
2064    2050    0    0    0    0
483    0    0    1700    0    0
1434    0    0    0    0    0
483    0    0    60    0    0
483    0    0    1700    0    0

データの入ったセル範囲を指定したいときに
(この表ではA1:F8)
Range("A1:(Range("F65536").End(xlUp))
という設定の仕方はありですか?
なんかうまくいかないのですが、教えてください。

【32447】Re:Endプロパティを使って範囲設定する
質問  TOTO  - 05/12/15(木) 13:14 -

引用なし
パスワード
   すみません、表がずれてしまいました。

A    B    C    D    E    F
8316    8318    0    400    0    450
7408    0    0    0    0    0
7408    0    0    0    0    0
2064    2050    0    0    0    0
2064    2050    0    0    0    0
483    0    0    1700    0    0
1434    0    0    0    0    0
483    0    0    60    0    0


データの入ったセル範囲を指定したいときに
(この表ではA1:F8)
Range("A1:(Range("F65536").End(xlUp))
という設定の仕方はありですか?
なんかうまくいかないのですが、教えてください。

【32450】Re:Endプロパティを使って範囲設定する
回答  m2m10  - 05/12/15(木) 14:15 -

引用なし
パスワード
   こんちは

 マクロの自動記録でしたら、と思いますが。

↓は自動記録です。


Sub Macro1()
  Range("A1").Select
  Range(Selection, Selection.End(xlToRight)).Select
  Range(Selection, Selection.End(xlDown)).Select
End Sub

【32452】Re:Endプロパティを使って範囲設定する
質問  Kein  - 05/12/15(木) 16:07 -

引用なし
パスワード
   A列の最終入力行を基準とするなら

Range("A1", Range("A65536").End(xlUp)).Resize(, 6)

という範囲になります。

【32470】Re:Endプロパティを使って範囲設定する
お礼  TOTO  - 05/12/15(木) 17:06 -

引用なし
パスワード
   keinさま

うまくいきました。
どうもありがとうございました。

【32471】Re:Endプロパティを使って範囲設定する
お礼  TOTO  - 05/12/15(木) 17:08 -

引用なし
パスワード
   回答ありがとうございます。

8583 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free