EXCELで最終行への簡単な移動

質問

EXCEL2000を使用して、列15x行5000くらいのデータを操作しています。
１．列Cの最終行に簡単に移動できるキーボード操作がわかったら教えてください
２．列Cの最終行を検索するVBAを教えてください
３．列Cの第１行から最終行までのうち、「あ」という文字を検索するVBAを作りたいのですが、簡単な作り方を教えてください。

回答No.1

moon00 · ベストアンサー

最終行＝データの最終行　ということでよろしいですか？
まず列Ｃのデータの最終行まで空白がない前提で、
1.列Ｃのデータのある行どこかがアクティブな状態で
　「Ctl＋↓」でデータの最終行に移動できます。
2.Range("c65536").End(xlUp).Select
　Excelのシートの最終行で「Ctl＋↑」でデータのある
　最終行に移動できるというのをマクロにしたものです。
3.マクロの記録を使ってみてはどうでしょう？
　ツール→マクロ→新しいマクロの記録　を選択して、
　マクロに名前をつけてやりたい作業を一度やってみて
　ください。
　そして記録終了をクリック。
　これをVisual Basic Editorで編集するのが早いと思います。

お礼

xlup/xldwnが参考になりました。
さっそくマクロを作ってRUNさせました。
ありがとうございます。

回答No.2

imogasi

Sub test1()
k = 1
Range("c1").Select
d = Range("c1").CurrentRegion.Rows.Count
Range(Cells(1, "C"), Cells(d, "C")).Find(What:="あ", LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells(k, "D") = ActiveCell.Row
k = k + 1
m = ActiveCell.Row
p01:
Range(Cells(1, "C"), Cells(d, "C")).FindNext(After:=ActiveCell).Activate
If ActiveCell.Row = m Then Exit Sub
Cells(k, "D") = ActiveCell.Row
k = k + 1
GoTo p01
End Sub
（データ）C1:C9に
す
あ
づ
けつ
すあ
あ
と
あ
ふ
（結果）D列に
2
6
8
になります。
xlWhole, をxlPart,にすると「すあ」も該当します。

お礼

なるほど、xlwholeは知りませんでした。
ありがとうございます。