こんにちは いつもお世話になっています。
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.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と致しました。
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と致しました。
ショートカットまで教えていただいて助かりました。
お探しの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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでセル内の数式は残し値だ...
-
条件に応じて特定の行を非表示...
-
Excel2007で、太字にした行のみ...
-
「マクロ」の足し算の式を教え...
-
Excel(VBA)データ入力に応じて...
-
VBA コピーを有効行までループ...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
エクセルでの書式ー下付きショ...
-
エクセル2003でマクロをおこな...
-
EXCELで指定範囲に一括し...
-
合計等の計算を最終行に組み込...
-
VBAでシートコピー後、シート名...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルの複数シートの保護を...
-
Excelで同じシートのコピーを一...
-
EXCELで1ヶ月分の連続した日付...
-
Accessのスプレッドシートエク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
(Excel2003)すぐ左の最後の行...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
エクセルで、行ごとの並び替え...
-
エクセル2003でマクロをおこな...
-
excel ある部分だけをコピペし...
-
行の入れ替えってどうするの?
-
Excelで周期的に列を削除する方法
-
整数行を残し小数点の行を削除...
-
EXCEL マクロで「キーワード入...
-
VBA コピーを有効行までループ...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
おすすめ情報