こんばんは、エクセルのマクロについてお伺いします。
現在
A1:支店名 B1:連番 C1:在庫数 全部で1000行位入力があります。
・A列には支店名
・B列には連番は1・2・3~と1000件位
・c列には在個数にはそれぞれ1桁から2桁の数字
【質問】
在庫数の数だけその連番の行を増やしたい。
例えば、
A2:東京支店 B2連番:1 C2在庫数:3
だとすると2行目のあとに2行挿入し在庫数が3なので下記のように3行にしたい。
A2 東京支店 B2連番 1 C2 在庫数 1
A3 東京支店 B3連番 1 C3 在庫数 空欄
A4 東京支店 B4連番 1 C4 在庫数 空欄
何せ数が多いのでマクロをお教え頂ければ助かります。
※その際、支店名と連番は同じ物がはいるとありがたいです。
※在庫数は空欄で構いません。
マクロでなくても方法があればお教え下さい。
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
こんばんは!
C列の在庫数だけA・B列を表示して、C列には必ず「1」が連続する最初の行のみ表示すれば良いわけですかね?
一応そういうことだとしての一例です。
データは2行目からあるとしています。
Sub test()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 3) > 1 Then
Rows(i + 1 & ":" & i + Cells(i, 3) - 1).Insert
End If
Next i
i = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 3) > 1 Then
i = i + Cells(i, 3) - 1
End If
For i = 2 To i
If Cells(i, 3) <> "" Then
Cells(i, 3) = 1
End If
If Cells(i, 2) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
Cells(i, 2) = Cells(i - 1, 2)
End If
Next i
End Sub
こんな感じではどうでしょうか?
尚、一旦マクロを実行すると元に戻せませんので、別Sheetにコピー&ペーストしてマクロを試してみてください。
参考になれば良いのですが・・・m(__)m
この回答への補足
tom04 様
早速のご回答ありがとうございます。
只今試してみましたが完璧でした。
ありがとうございます。
1つ追加でうかがいたいのですが、
実際のデータは職場にあり、
見出しのタイトルが今回質問した(支店名・連番・在庫数)と若干相違します。
1行目がタイトルでABCの並びはこの通りです。
お教えいただいたマクロで問題ないでしょうか?
よろしくお願い致します。
tom04 様
早速のご回答ありがとうございます。
只今試してみましたが完璧でした。
ありがとうございます。
1つ追加でうかがいたいのですが、
実際のデータは職場にあり、
見出しのタイトルが今回質問した(支店名・連番・在庫数)と若干相違します。
1行目がタイトルでABCの並びはこの通りです。
お教えいただいたマクロで問題ないでしょうか?
よろしくお願い致します。
No.2
- 回答日時:
No.1です!
続けてお邪魔します。
補足を読ませていただきました。
前回のコードは2行目以降を操作するようにしていますので、
1行目はどんなタイトルでも(タイトルがあってもなくても)構いません。
まずデータの最終行から上の行に向かってC列の数値より1行少ない行をを挿入しています。
次に2行目以降下に向かってC列にデータがあれば「1」を表示させ
B列(本来はA列でも良かった)が空白であれば1行上のデータを表示させるようにしていますので、
データがA~C列(C列は数値)の2行目以降にありさえすれば同じような動きになるはずです。
お役に立てば良いのですが。m(__)m
tom04 様
追加に気づいて下さりありがとうございます。
お礼にも同じ文面を記載してしまいました、すみません。
マクロの意味までお教えいただきありがとうございます。
明日までの仕事でしたので、本当に助かりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 東北 こんにちは。私は現在、青森市に出張してます。 所で八戸市に本店があるあおい森信用金庫が青森市に何故支 3 2022/05/10 13:11
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- au(KDDI) auStyleの来店予約をする時に、iPhone14の商品予約もしました。昨日予約したのですが、連絡 1 2022/12/19 20:45
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- その他(妊娠・出産・子育て) 産後の妻と転勤と子供との生活。妻の態度に悩んでいます 3 2023/01/30 17:34
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- マンガ・コミック 漫画を探しています。 ジュンク堂や紀伊国書店などネットで調べられる在庫はほとんど調べました。 それで 4 2023/01/06 23:04
- その他(Microsoft Office) Excelの関数(FILTER関数)について教えてください 2 2023/07/31 16:11
- Excel(エクセル) 指定した語句と隣のセルを空欄にする 1 2023/06/18 12:54
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
エクセルで離れた列を選択して...
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
エクセル 重複したデータを別...
-
エクセルマクロPrivate Subを複...
-
リストからデータを紐付けしたい
-
エクセルマクロの組み方
-
VBA 指定した列にある日時デー...
-
Excel文字列一括変換
-
CSVファイルの「0落ち」にVBA
-
エクセルで複数列の検索をマク...
-
EXCELVBAでリストボックス複数...
-
VBAで別ブックの列を検索し、該...
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
エクセルのソートで、数字より...
-
Alt+Shift+↑を一括で行うには、...
-
オートフィルターの複数抽出と...
-
データシートビューのタイトル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA
-
Excelの行数、列数を増やしたい...
-
VBA 指定した列にある日時デー...
-
エクセルで複数列の検索をマク...
-
CSVファイルの「0落ち」にVBA
-
エクセルマクロの組み方
-
エクセルのソートで、数字より...
-
えABのある列って
-
VBAで別ブックの列を検索し、該...
-
Excel文字列一括変換
-
エクセルで住所を県と市・郡と...
-
リストからデータを紐付けしたい
-
Alt+Shift+↑を一括で行うには、...
-
エクセル マクロ 範囲指定で...
-
エクセルで最初の行や列を開け...
-
エクセル 重複 隣の列 一番...
おすすめ情報