![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
こんにちは いつもお世話になっています。
Windows7、エクセル2010で教えてください。
B3から仮にB100まで文字列があるとします、空白セルはありません。
この状態でA3からA100まで1から始まる連番をマクロで実行したいのです。
実際はB列のデータの最終行は不定です。つまり、B列にデータがなくなるまで(空白セルになるまで)A列に連番をつけたいのです。現在はA3,A4に1,2と入力し、オートフィルで該当セルを選択し「予測」で連番をつけています。
マクロ記録ではB列にデータがなくなる判断ができなくて作れません。
この作業が頻繁にあるものですからマクロができれば助かります。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
一例です。
Sub sample()
Dim i As Long
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B") <> "" Then Cells(i, "A") = i - 2
Next
End Sub
mu2011 様 ありがとうございました。お蔭様で解決しました。
ご紹介いただいたものはすべて成功しました。
大切に使わせていただきます。
恐縮ですが早めにご回答いただいた方をBest Answerと致しました。
No.3
- 回答日時:
以下でどうでしょうか?
Sub macro()
Range("A3").Value = 1
Range("A3").DataSeries xlColumns, xlDataSeriesLinear, , 1, Range("B" & Rows.Count).End(xlUp).Row - 2
End Sub
ちなみに、手動操作ですが、A3,A4に1,2と入力し、A3:A4を選択した状態で、+ボタン上でダブルクリックすると、データのある範囲すべて連番になります。
kybo 様 ありがとうございました。お蔭様で解決しました。
ご紹介いただいたものはすべて成功しました。
大切に使わせていただきます。
恐縮ですが早めにご回答いただいた方をBest Answerと致しました。
ショートカットまで教えていただいて助かりました。
No.2
- 回答日時:
マクロ以前にエクセルシートの操作で連番を入れる方法を色々知っていると,そのままマクロにも応用できます。
たとえば:
sub macro1()
dim r as long
r = range("B65536").end(xlup).row
if r < 3 then exit sub
with range("A3:A" & r)
.formula = "=ROW(A1)"
.value = .value '状況によるけど別に無くてもいい
end with
end sub
keithin 様 ありがとうございました。お蔭様で解決しました。
ご紹介いただいたものはすべて成功しました。
大切に使わせていただきます。
恐縮ですが早めにご回答いただいた方をBest Answerと致しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) セルに抜けた番号の代わりに空白を挿入する 4 2023/04/10 20:29
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
ExcelのVBAで連番を振る。
Excel(エクセル)
-
エクセルVBAでのオートフィル
Excel(エクセル)
-
-
4
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
5
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
6
【VBA】 通し番号の入力について
その他(Microsoft Office)
-
7
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
エクセル VBA 小数点を含む数字...
-
Excel2007で、太字にした行のみ...
-
エクセルで全ての数字間にカン...
-
エクセル2003でマクロをおこな...
-
「マクロ」の足し算の式を教え...
-
Excel にて非表示行を探すワー...
-
Excelで連続印刷をするマクロ
-
エクセルマクロについて
-
エクセルで数値を簡単に加算したい
-
エクセルで、行ごとの並び替え...
-
100行のセルの高さを一括で調整...
-
Excel2007 セルを右方向に削除...
-
VBA コピーを有効行までループ...
-
エクセルの複数シートの保護を...
-
VBAでシートコピー後、シート名...
-
別シート参照のセルをシート毎...
-
Excel、同じフォルダ内のExcel...
-
EXCEL:同じセルへどんどん足し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
値貼り付けをしても書式も貼り...
-
エクセルで、行ごとの並び替え...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
-
VBA コピーを有効行までループ...
-
並べ替えのマクロで対象行の範...
-
Excelで周期的に列を削除する方法
-
100行のセルの高さを一括で調整...
-
yyyy/mm/ddの日付に一括変換す...
-
エクセルで連番をマクロで
-
エクセル2003でマクロをおこな...
おすすめ情報