excel2003、vbaの質問です、A65536を選択してから、上方向に検索したい

Question

初心者です
よろしくお願いいたします。
A65536を選択して上方向に検索をかけたいです。
ブランクのセルを飛ばして、初めて文字列や、数式など、何かが入っているセルを見つけ出しセレクトできるようにしたいです。
次にそのセルの行をセレクトできるようにしたいです。

1/15

1/16

1/17

1月

A列にこのように入っているとき、Ａ列の一番下から検索をかけて１月のところで止めたいです。
よろしくお願いいたします。

Answer 1

こんにちは。

65536行目を起点とされていますが、下記のように記述しておけば「常にA列最終行から上方向に向かって最初に値があるセル」を指しますので、将来Excelのバージョンが変わっても挙動が変わらずオススメです。

Range("A" & Rows.Count).End(xlUp).Row

Comments

[kintarock777]

こんばんは、回答ありがとうございます。
seastar3さんのコードと組み合わせて使わせていただきました。

Answer 2

VBAで以下のようなコードが基本でしょう。

Sub ボタン1_Click()
    row1 = ActiveSheet.Range("$A$65536").End(xlUp).Row: ' 末尾行の取得
    MsgBox ("A列目最終行の内容は" & Cells(row1, 1)): ' A列末尾行の内容の表紙
    Cells(row1, 1).Select: ' A列末尾行の選択
End Sub

Comments

[kintarock777]

こんばんは、回答ありがとうございます。うまくできました。

Answer 3

これで値の入力されているセルを全て舐められます。

For Each Cell In Cells.SpecialCells(xlCellTypeConstants, xlTextValues)

Next

Comments

[kintarock777]

こんばんは、回答ありがとうございます。
試してみましたが、ほかのコードと組み合わせてみましたが、
うまく動きません、自分のコーディングに問題があるようです、
もう少し試してみます。

Answer 4

ctrl+矢印をマクロの記録するのが一番手っ取り早いかと思います。
行はRowで。

Comments

[kintarock777]

回答ありがとうございます。
もともとショートカットキーがあったんですね、知りませんでした、
勉強になりました