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も見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
数式による空白を無視して最終行までコピーするマクロ
Excel(エクセル)
-
【Excel マクロ】関数での空白を無視して最終行を取得
Excel(エクセル)
-
エクセルで空白セルを含む列の最終行の値を取得する式を教えてください
Excel(エクセル)
-
-
4
数式の結果が空白の時の空白扱い
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
10
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
11
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
12
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
13
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
14
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
15
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
16
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
17
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
18
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
19
EXCELの条件付き書式で数式を空白と認識してくれる方法
Excel(エクセル)
-
20
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
関数TRANSPOSEで空白セルを0に...
-
エクセル 連番が途切れていると...
-
Excelで、入力文字の後に自動で...
-
数式による空白を無視して最終...
-
OpenOfficeでのワイルドカード...
-
Excelのchar関数について 通常...
-
色つき行の一括削除は?
-
数式の結果が空白の時の空白扱い
-
【EXCEL】空白でないセルの位置...
-
EXCELの空白セルを計算しない
-
VBAで空白セルにのみ数値を代入...
-
エクセルで、「複数のセルの中...
-
エクセル セルのコピー元が空...
-
エクセルのマクロで、選択範囲...
-
集計表で集計結果が”0”の場合...
-
空白セル内の数式を残したまま...
-
空白セルがないのにオートフィ...
-
エクセルで、合計をもとめたい...
-
エクセル 列の内容を一つにまと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
エクセルでCSVを編集するとき、...
-
数式による空白を無視して最終...
-
「データ要素を線で結ぶ」がチ...
-
Excel > ピボットテーブル「(空...
-
関数TRANSPOSEで空白セルを0に...
-
ピボットテーブルで空白セルの...
-
空白セル内の数式を残したまま...
-
【Excel】 csvの作成時、空白セ...
-
色つき行の一括削除は?
-
excel2010 空白セルにのみ貼り...
-
エクセルで上の行の値を自動的...
-
Excel:関数が入っているセルに...
-
Excelで、入力文字の後に自動で...
-
エクセル 連番が途切れていると...
-
SUMIFS関数で「計算式による空...
-
【Excel】 Ctrl+方向キー で空...
-
《Excel2000》SUMPRODUCT関数で...
-
形式貼り付けの「空白を無視す...
-
エクセル VLOOKUP関数 日付は日...
おすすめ情報