
A1~D8まで数式が入っていて、if関数によって条件に合わない場合は、空白にしています。
条件に合わない場合は行すべてが空白になり、1つのセルだけが空白になることはありません。
(画像参考)
A1~D3までは数式によって数値や文字列が表示されています(A列・B列は文字列です)
A4~D8まではif関数による空白(””)の状態です。
この状態で、最終行の次のセルをアクティブにするマクロ
Cells(Rows.Count, 1).End(xlUp).Offset(1).Select
を実行すると、A9が選択されます。
これを、A4を選択するマクロを教えていただけないでしょうか。
説明が分かり難かったらすみません。
よろしくお願いします。

No.2ベストアンサー
- 回答日時:
No.1です。
たびたびごめんなさい。
もう少し短くできました。
Sub Sample2()
Dim i As Long
On Error Resume Next '//←念のため
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") <> "" Then Exit For
Next i
Cells(i, "A").Offset(1).Select
End Sub
にしてみてください。m(_ _)m
No.3
- 回答日時:
こんばんは。
Match関数を使ったものを、邪道だというのはやめてくださいね。(^^;
こんな便利な関数を使わない手はありません。
ただし、どちらの変数も、Variant型ですから、お間違えなく。
'//
Sub TestMacro1()
'No.8968394
Dim i '(As Variant)
i = Application.Match("", Columns(1), 0)
If IsNumeric(i) Then
Cells(i, 1).Select
Else
MsgBox "セルが見つかりません", vbExclamation
End If
End Sub
'VBAマクロらしくするなら、こんな風にもできますね。
Sub TestMacro2()
'No.8968394
Dim r
Set r = Columns(1).Find("", , xlValues, 1)
If TypeName(r) = "Range" Then r.Select
End Sub
'///
No.1
- 回答日時:
こんばんは!
安直な方法ですが・・・
Sub Sample1()
Dim i As Long
On Error Resume Next '//←念のため
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") = "" Then
i = i - 1
End If
If Cells(i, "A") <> "" Then Exit For
Next i
Cells(i, "A").Offset(1).Select
End Sub
もっとスマートな方法があるかもしれませんが、
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ネット速度にお困りなら…Wi-Fi 6
高速・安定のWiFi 6で、通信速度の不満を解消!接続機器が多くても安心。だから今買うならWi-Fi 6がおすすめ
-
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
-
【Excel マクロ】関数での空白を無視して最終行を取得
Excel(エクセル)
-
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
4
'Range'メソッドは失敗しました
Excel(エクセル)
-
5
エクセル:データが入った最終行の行番号の取得
Excel(エクセル)
-
6
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ExcelVBAで最終行を誤認する問題の回避方法
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
VBAで文字列を数値に変換したい
Excel(エクセル)
-
11
空白行を無視してコピーするマクロについて
Excel(エクセル)
-
12
エクセル、マクロで「末尾を1文字削除」したいのですが
Windows Vista・XP
-
13
ExcelVBAでBookを開く時にファイル名の一部だけを指定で
Access(アクセス)
-
14
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
15
VBAでの結合セルのコピー&ペースト
Excel(エクセル)
-
16
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
17
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
18
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
19
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
空白セルがないのにオートフィ...
-
5
空白セル内の数式を残したまま...
-
6
IF関数で空欄("")の時、Null...
-
7
Excel > ピボットテーブル「(空...
-
8
数式による空白を無視して最終...
-
9
ピボットテーブルで空白セルの...
-
10
全て空白のときに空白にする
-
11
エクセルの空白セルをのぞいて...
-
12
《Excel2000》SUMPRODUCT関数で...
-
13
excel2010 空白セルにのみ貼り...
-
14
エクセルで、合計をもとめたい...
-
15
エクセルで、「複数のセルの中...
-
16
エクセルで上の行の値を自動的...
-
17
空白を0とみなす関数
-
18
VBAで空白セルにのみ数値を代入...
-
19
形式貼り付けの「空白を無視す...
-
20
【EXCEL】空白でないセルの位置...
おすすめ情報