Excel VBAで2列~4目の3行目以下すべてを選択する方法は、ないでしょうか?
2列~4目すべてを選択というのは、比較的簡単で、たとえば
Sub 2to4 ()
Worksheets("Sheet1").Activate
Columns("B:D").Select
End Sub
とでも書けばよいのでしょうが。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …
要はこれから3行目までを除外する方法があればいいわけですが、
そういう方法があったら教えてください。
今は、cells(2,1)から、cells(4,5000)までを選択といったように
原始的な方法でやってますが、この方法だと数字を大きくしすぎると
2003以前のバージョンでトラブり、数字を小さくしすぎると、選択しきれなかったりと…。
いろいろ不都合が多いので…。
No.3ベストアンサー
- 回答日時:
いろいろな書き方があると思います。
3つほど例をあげました。
2003とそれ以降ではシートの行数が違うので数値で失敗されたのだと思いますが、以下はバージョンにかかわらず大丈夫です。
Sub test01()
Worksheets("Sheet1").Activate
Range("B3:D" & Rows.Count).Select
End Sub
Sub test02()
Worksheets("Sheet1").Activate
Range("B3", Cells(Rows.Count, "D")).Select
End Sub
Sub test03()
Worksheets("Sheet1").Activate
Columns("B:D").Resize(Rows.Count - 3).Offset(3).Select
End Sub
この回答への補足
回答の趣旨は
要は、Rows.Countまで選択するということで、ある列のある行以降全ての行がExcelVBAで選択でき、
Columns.Countまで選択するということで、ある行のある行以降全ての列がExcelVBAで選択できるということですね。
■以下、ご報告。
http://www.gizcollabo.jp/vbtomo/log/archive/chos …
のような、cellsメソッドの失敗が、まれに出る以外、特に問題なく駆動しています。
Excel VBAで2~4列目の3行目以下を選択
Sub test01()
Worksheets("Sheet1").Activate
Range("B3:D" & Rows.Count).Select
End Sub
でうまくいきました。
いただいたものもうまくいき、
Sub test02()
Worksheets("Sheet1").Activate
Range(Cells(3, 2), Cells(Rows.Count, 4)).Select
End Sub
でうまくいきました。
55列~60列目の11行目以降(11行を含む)とする場合、Resize()内の数字をある程度大きくしないとうまくいきませんでした。
Sub test03()
Worksheets(1).Activate
Range(Columns(55), Columns(60)).Resize(Rows.Count - 12).Offset(10).Select
End Sub
だとうまくいきました。
Excel2000で
sub()
Cells(1, 2) = Rows.Count
end sub
と入力すると、Excel2000で65536と出るので、恐らく、
当該バージョンのExcelの行数=Rows.Countなのだと理解いたしました。また、Rows.Countで調べると、以下のサイトがヒットしました。
http://www.konomiti.com/vba01_3-2.html
この意味で、
Sub test02()
Worksheets("Sheet1").Activate
Range(Cells(3, 2), Cells(5, Columns.Count)).Select
End Sub
としてみると、特定の行の頭数個を飛ばして、選択するということも出来ました。
丁寧なご回答ありがとうございました。いずれの方法でもうまくいきました。
取り急ぎお礼まで。ありがとうございます。詳細は、補足にて、追ってコメントさせていただきます。
急いでいただいたのに申し訳ありません。
No.5
- 回答日時:
ANo3 merlionXXです。
> Sub test03()
> Worksheets(1).Activate
> Range(Columns(55), Columns(60)).Resize(Rows.Count - 12).Offset(10).Select
> End Sub
> だとうまくいきました。
.Resize(Rows.Count - 10).Offset(10)でないと
ワークシート一番下の2行は選択されてませんよ。
意味がわかりました。
要は、Rows.Count - 10以上にしないと、選択範囲がExcelの最大許容の行数をオーバーしちゃうということですね。ありがとうございました。
No.4
- 回答日時:
当初のご相談は
>3行目以下すべてを選択する
という事でしたのでシートの最下行まで選択する旨回答しましたが,現実には
たとえば
range("B3:D" & cells.specialcells(xlcelltypelastcell).row).select
はたまた
range(range("B3"), cells(cells.rows.count, "D").end(xlup)).select
などのようなことではないのですか。
回答ありがとうございました。下記のうち
Sub AA()
Range("B3:D" & Cells.SpecialCells(xlCellTypeLastCell).Row).Select
End Sub
は、要求仕様に合致しているように見えますが、
Sub AB()
Range(Range("B3"), Cells(Cells.Rows.Count, "D").End(xlUp)).Select
End Sub
は、B列のデータが入っている最終行の行数が、D列のそれより大きいときに、
B列の最終データが選択されていないので、要求仕様にあっていないようにみえます。
要は、。While文なんかで吐き出した、どこが終わりかわからないデータを
一斉にクリアしたいということです。
計算アルゴリズムによっては、どの行もデータ数が違う場合もある。
(例えば、乱数でA,B,C3グループにわけた人たちが、適当な時間に
待ち行列を作り、5分のアトラクションに入り、女性を優先して入場させた場合に、
アトラクションから出てきた人がいつ出てきたかの予想など。
No.2
- 回答日時:
次のようにしてはどうでしょう。
Range("B3:D3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
データの入力が一か所には無くばらばらの行にある場合にはRange(Selection, Selection.End(xlDown)).Selectを追加して記載すればよいでしょう。
(3)の方法でうまくいったので、未確認ですが、取り急ぎお礼まで。ありがとうございます
確認して、補足にてコメントさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Excel(エクセル) 「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい 1 2022/07/31 23:49
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
vbaで指定したセルより下の行を指定する方法について vbaの質問です。 例えば、「C6」セルより下
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
7
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
8
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
9
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
10
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
11
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
12
エクセルで特定のセル以下の全部のセルの選択方法
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
15
VBAで文字列を数値に変換したい
Excel(エクセル)
-
16
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
17
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
18
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
19
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
20
別のシートから値を取得するとき
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAで2~4列目の3行目...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
エクセル関数>参照ファイル名...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
複数のマクロボタンをまとめて...
-
エクセルの表を複数枚印刷した...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
excelで直前に参照していたブッ...
-
【Excel】マクロの保存先について
-
マクロの保存先、開いてるすべ...
-
エクセルで空白行を削除する ...
-
マクロで最終行を取得してコピ...
-
【Excel VBA】マクロでExcel自...
-
Excelでマクロ実行中に画面を固...
-
エクセルファイルを値でのみし...
-
エクセル ボタンに設定したマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAの配列について
-
Excel VBAで2~4列目の3行目...
-
VBA マクロを使って、コピー ...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル関数>参照ファイル名...
-
Excelのマクロでボタンを押すと...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
エクセル マクロ名にブック名...
-
マクロの保存先、開いてるすべ...
-
複数のマクロボタンをまとめて...
-
エクセルで、「いいね」のよう...
-
【Excel VBA】マクロでExcel自...
-
エクセルマクロで、別のブック...
-
【Excel】マクロの保存先について
-
複数のExcelファイルの印刷設定...
-
エクセルで空白行を削除する ...
-
エクセル;相対パスを絶対パスへ...
おすすめ情報