データの一括選択

質問

1行目と2行目にタイトルが入っていてウインド固定しています。
3行目から横方向Ａ～ＤＺにデータが入り、行は千以上になる予定です。

これを並べ替えする為にデータを全て選択したいのですが、3行目から
最終行までを選択する簡単な方法は有りませんか??

フォームのボタンにマクロを登録したいと思いますが、書式を知らないので
教えて頂けませんか　m(__)m

回答No.8

KenKen_SP · ベストアンサー

オペレーションで行うなら、

　1.　[Ctrl]+[G] - [セルの選択]で最後のセルを選択
　2.　数式バーの横に最後のセルのアドレスが表示されているので、
　　　そこを書き換えてEnter
　　　例えば、最後のセル選択で DZ1500 と表示されていたら、
　　　A3:DZ1500 と書き換えます。

ただし、この操作で得られる「最後のセル」というのは、書式のみ
設定され値のないセルも「使用済み」セルとしてカウントされて
います。VBA で言えば、UsedRange や SpecialCells で得られる
セルです。

　# これで問題なければ OK なんですが、実用途ではデータのある
　# セル範囲のみほしい場合がほとんどです。

途中に空セルがある場合で、値が入力されているセルの最終行番号
を取得するには、End(xlUp) がよく使われますが、こちらは、
「確実に最終行を取れる列」が事前にわかっていないと使えません。

で、結局歯抜けデータの場合、Find を使うのが一番手っ取り早い。
こんな感じ。

Sub Sample()

　　Dim r As Long
　　On Error Resume Next
　　r = Cells.Find(What:="*", _
　　　　　　　　　 SearchDirection:=xlPrevious, _
　　　　　　　　　 SearchOrder:=xlByRows).Row
　　Range("A3:DZ" & CStr(r)).Select

End Sub

お礼

丁寧な解説ありがとうございました。
今日は他の事で手一杯に成ってしまったので
まだ試せていませんが、今度の休日にまた試してみたいと思います。
コピーしてデスクトップに保存しました^^
ありがとうございました m(__)m

回答No.2

ka_na_de

＃１です。

ごめんなさい。入力ミスです。

最初はA3セルを選択してください。

その後、[Ctrl]+[Shift]　で　[→」キーを押して、
次に[↓]キーを押してください。

補足

レスありがとうございます。
[Ctrl]+[Shift]　で　[→」は空白データが多い為か上手く行きません…
[Ctrl]+[Shift]　で　[↓] を先に実行するとＡ列は全て選択できるのですが
その後　[→」を実行するとやはり無理なようです;;

回答No.1

ka_na_de

１）B3セルをクリック
２）[Ctrl]+[Shift]　で　[→」キーを押して、続けて[↓]ボタンを押す

でどうでしょうか？