A列に値(文字列)が入っていたらB列に連番を入力するマクロを教えてください。
なお、間に空白セルが入ると、連番を1からスタートさせるマクロを作りたいと思っています。
例)
A列
あああ
いいい
(空白)
かかか
ききき
くくく
(空白)
さささ
ししし
すすす
せせせ
そそそ
たたた
(空白)
↓
マクロを実行した結果
A列 B列
あああ 1
いいい 2
(空白)
かかか 1
ききき 2
くくく 3
(空白)
さささ 1
ししし 2
すすす 3
せせ 4
そそそ 5
たたた 6
(空白)
A列に対して、マクロを実行するとB列が出来上がるようなマクロを作りたいなと思っています。
どなたかわかる方、宜しくお願いします。
No.1ベストアンサー
- 回答日時:
Sub 連番表示()
Dim nRow ' 行数カウント用変数
Dim maxRow ' 最大行数
Dim count ' 連番カウント用変数
count = 0 ' カウント初期化
' 最大行数取得
maxRow = Range("A65536").End(xlUp).Row
For nRow = 1 To maxRow
' セルの中身が空ではない場合
If Cells(nRow, 1) <> "" Then
count = count + 1 ' 連番カウントに1加算
Cells(nRow, 2) = count ' B列に連番カウント代入
Else
count = 0 ' 連番カウントリセット
End If
Next nRow
End Sub
たぶんこれでできると思います。
出来なかったら言ってください。
直します
早速の回答ありがとうございました!
私も似たようなのを途中まで書いていたのですが、・・・。
End ifの次に 連番カウントリセットの記述をしたら良かったのですね!
ありがとうございました。
おかげさまで助かりました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Visual Basic(VBA) VBAを使いシート間で貼り付け 3 2023/03/14 20:53
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelのVBAで連番を振る。
Excel(エクセル)
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
Excel VBA 自動で連番をわりふる
Excel(エクセル)
-
-
4
エクセル 連番が途切れているところに空白行を入れる
Excel(エクセル)
-
5
条件を指定して連番を振る方法(エクセル)
Excel(エクセル)
-
6
excelVBA 項目ごとに連番をふりたい
Excel(エクセル)
-
7
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
8
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
9
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
10
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
11
エクセルで、条件の合うものだけに連番をつけたいです。
Excel(エクセル)
-
12
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
13
エクセルでセルの値分の個数の文字列を自動で入れたい
Excel(エクセル)
-
14
Excel VBA でテキストボックスの値をセルA列から検索
その他(プログラミング・Web制作)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
17
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
18
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
19
スペースで区切られた氏名から性だけを抽出するには?
Visual Basic(VBA)
-
20
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの非表示列も含めてコピー
-
EXCELにて複数列を同条件(色)...
-
エクセルの関数について(日付で...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
エクセル マクロ 行や列を削除...
-
エクセルで行挿入した際、自動...
-
マクロで値がある列までコピー
-
Excel関数 集計についての関数...
-
エクセルで図形を挿入するマク...
-
エクセルで表示された値だけ行...
-
エクセル マクロ 貼り付け先が...
-
シート保護の状態で行の追加を...
-
VBAでセルの更新時刻+αを表示...
-
A1セルに入力したら、入力時間...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
エクセルで1列に500行並んだデ...
-
参照先セルに値が入っていない...
-
Excelの入力規則で2列表示したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
VBAで同じブック内の別シー...
-
マクロ ScrollColumn について
おすすめ情報