No.2ベストアンサー
- 回答日時:
シート名をSheet1とした場合の1例です。
Dim Sh1 As Worksheet
Set Sh1 = Worksheets("Sheet1")
END1 = Sh1.Range("A65536").End(xlUp).Row
CNT = 0
For Cnt1 = 2 To END1
If Sh1.Range("A" & Cnt1).Value = "" Then
CNT = CNT + 1
Sh1.Range("B" & Cnt1).Value = CNT
Else
CNT = 0
End If
Next Cnt1
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Sub 要具ライフ() ActiveSheet....
-
VBAを使用した時間管理
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
EXCELで変数をペーストしたい
-
【Excel VBA】指定行以降をクリ...
-
エクセル マクロで セルの範...
-
セル色なしの行一括削除
-
EXCELのVBA-フィルタ抽出後の...
-
DataGridViewの各セル幅を自由...
-
【VBA】シート上の複数のチェッ...
-
連続する複数のセル値がすべて0...
-
【Excel】指定したセルの名前で...
-
DataGridViewのセル編集完了後...
-
クリックされたセルの位置を取...
-
エクセルの複数データーをダブ...
-
特定行の色を変えたい(FlexGrid)
-
【EXCEL VBA】Range("A:A").Fi...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
【マクロ】プルダウンが設定し...
-
Excelで指定した日付から過去の...
-
VBA実行後に元のセルに戻りたい
-
【Excel】指定したセルの名前で...
-
Excel vbaで特定の文字以外が入...
-
特定の文字を条件に行挿入とそ...
-
EXCELで変数をペーストしたい
-
【EXCEL VBA】Range("A:A").Fi...
-
エクセルVBAでコピーして順...
-
連続する複数のセル値がすべて0...
-
screenupdatingが機能しなくて...
-
Excel VBA、 別ブックの最終行...
-
任意フォルダから画像をすべて...
-
Excelのプルダウンで2列分の情...
-
【VBA】カーソルのある行の1行...
-
VBAコマンドボタンを押すたびに...
おすすめ情報
仰せの通りです。
自分で考えたのは、A列が空白だったら、連番を振るというようにかんがえたのですが、
うまくできなくて困っています。