- ベストアンサー
VBAで行を挿入して数量を入れる方法
- Sheet1の特定の列の数量が1以外の場合、行を挿入し、H列に分子、I列に分母を入力する方法をVBAで実装したいです。
- 連番がいくつまで存在するかわからないため、連番の範囲を自動で検出する機能も実装したいです。
- VBAを利用して学校名、氏名、性別、ブレザーサイズなどのデータが格納されたSheet1の特定の列を条件に行を挿入し、H列とI列に数量の分子と分母を入力する方法を教えてください。
- meronsodanomu
- お礼率95% (210/220)
- Excel（エクセル）
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- eden3616
- ベストアンサー率65% (267/405)
No1です。 申し訳ありません。 数量1の場合で、H・I 列に「1」を書き出していませんでした。 VBAコードを以下の物と差し換えてご利用ください。 ■VBAコード Sub 挿入() Dim i As Long, j As Long [H1:I2].Formula = [{"ブレザー","";"数量","数量"}] For i = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "G") > 1 Then For j = 1 To Cells(i, "G") If j > 1 Then Rows(i).Copy Rows(i + 1).Insert End If Cells(i, "H") = Cells(i, "G") - (j - 1) Cells(i, "I") = Cells(i, "G") Next j Else Range(Cells(i, "H"), Cells(i, "I")) = 1 End If Next i End Sub
お礼
やりたかったことができました！ ありがとうございます。
補足
結果を別シートに表示させることはできますか？ 実行したら選択したまんまなのですが選択させないようにできますか？
- eden3616
- ベストアンサー率65% (267/405)
ご提示の結果で7～9行目の連番4の場合ですが なぜ数量が3になるのでしょうか？ 2である解釈で作成します。 (1)Ａｌｔ+Ｆ11でＶＢＥを開く (2)「挿入→標準モジュール」で標準モジュールを挿入する (3)以下のＶＢＡコードを貼付る (4)右上の×か、ＡＬｔ+Ｆ11でＶＢＥを閉じる (5)対象の「Ｓｅｅｔ1」を表示した状態で、Ａｌｔ+Ｆ8か、「表示→マクロ」から「挿入」マクロを選んで「実行」 ■ＶＢＡコード Sub 挿入() Dim i As Long [H1:I2].Formula = [{"ブレザー","";"数量","数量"}] For i = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1 If Cells(i, "G") > 1 Then For j = 1 To Cells(i, "G") If j > 1 Then Rows(i).Copy Rows(i + 1).Insert End If Cells(i, "H") = Cells(i, "G") - (j - 1) Cells(i, "I") = Cells(i, "G") Next j End If Next i End Sub
お礼
ありがとうございます。
補足
氏名４は数量３でした。間違えました。下の表があってます。
関連するQ&A
- excelのマクロで条件による行の挿入
列AとBがあり列Aに学校のクラス名A組、B組、C組・・・（２０クラスほど）と氏名が 入るエクセルシートがあるのですが 先頭行はA組から始まり５行区切りで数え、（A組も5行のうちに入る） その５行内に次のB組が入らないように空白行を挿入したいです もし、5行以内にB組がない場合、次の５行でまたB組があるか判定しなければ氏名５つ あれば空白をいれてというのを２０クラスぶん作るマクロは可能でしょうか？ VBAの知識がさっぱりないので途方にくれています。 元のデータの例 マクロ実行後 列A 列B 列A 列B A組 A組 氏名１ 111 氏名１ 111 氏名２ 222 氏名２ 222 B組 空白行挿入 氏名3 333 空白行挿入 氏名4 444 B組 氏名５ 555 氏名3 333 氏名６ 666 氏名4 444 氏名７ 777 氏名５ 555 C組 氏名６ 666 氏名７ 777 空白行挿入 空白行挿入 空白行挿入 空白行挿入 C組
- ベストアンサー
- Excel（エクセル）
- (VBA)対応する番号の下に行挿入して文字列を追加
以下を行うVBAのコードを知りたい シート名「Extra」のA列に文字列が複数行に渡って記入されています 必ずA1は１で数行後に2と以後連番が続く形式です。 Sheets名「Time」は、 A列に1から始まる連番 B列にA列に対応する文字列が対であります。 やりたいことは、 「Time」のA列の連番と「Extra」にある同じ連番行の一つ下に行を挿入して 「Time」のA列と同じ行のB列の文字列を書き込みです。 例えば、「Extra」が 435 ABC で 「Time」 435 123456 ならば 「Extra」を以下のように書き換える 435 123456 ABC 判りにくい内容でしょうがよろしくお願いします。 ’-----------------------------------------
- ベストアンサー
- Excel（エクセル）
- エクセル 行挿入のマクロについて
こんばんは、エクセルのマクロについてお伺いします。 現在 Ａ１：支店名 Ｂ１：連番 Ｃ１：在庫数 全部で１０００行位入力があります。 ・Ａ列には支店名 ・Ｂ列には連番は１・２・３～と１０００件位 ・ｃ列には在個数にはそれぞれ１桁から２桁の数字 【質問】 在庫数の数だけその連番の行を増やしたい。 例えば、 Ａ２：東京支店 Ｂ２連番：１ Ｃ２在庫数：３ だとすると２行目のあとに２行挿入し在庫数が３なので下記のように３行にしたい。 Ａ２ 東京支店 Ｂ２連番 １ Ｃ２ 在庫数 １ Ａ３ 東京支店 Ｂ３連番 １ Ｃ３ 在庫数 空欄 Ａ４ 東京支店 Ｂ４連番 １ Ｃ４ 在庫数 空欄 何せ数が多いのでマクロをお教え頂ければ助かります。 ※その際、支店名と連番は同じ物がはいるとありがたいです。 ※在庫数は空欄で構いません。 マクロでなくても方法があればお教え下さい。 よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- excel 複数行をまとめる 一括変換
データ整理で困っております。 皆様のお知恵を拝借したくお願いいたします。 EXCELシートで次のようなデータがあります。 A B C D E F G H I J K 1 １ あ い 2 う え 3 お か 4 き く 5 け こ 列はA,B,Cのみにデータがあります。 行は1～5にあります。 A1は連番で数字があります。 この５行のデータが４００近くあります。（約2,000行） このシートが１０ほど存在します。 これらのシートを次のように１行に変換したいのです。 A B C D E F G H I J K 1 1 あ い う え お か き く け こ 2 3 4 5 行2～5はブランクのままでもかまいません。 何卒よろしくお願いいたします。
- 締切済み
- その他（ITシステム運用・管理）
- ＶＢＡと罫線の作成
こんにちは。 ＶＢＡ勉強中で初心者です。 今、以下の上段画像のような表をエクセル2003 で作成しました。 下段画像はＶＢＡ実行後の表です。 表は 番号と氏名、合否の結果を入力した ものです。 今、行いたい処理なのですが (1) Ｂ列の氏名欄に対応する、連番を Ａ列に表示したい。 (2) さらに、氏名欄が入っている部分を Ａ列からＤ列まですべてを罫線（普通線） で囲みたい。 の2点です。 (1)はなんとかできたみたいのですが、 (2)で完全に手が止まってしまいました。 最終の行と列の取得が、すこしわからないので 教えていただければと思います。 よろしくお願いします。 Sub sample() Dim num As Integer '行変数を設定 Dim num2 As Integer '番号変数を設定 Dim i As Long 最終行の取得？ num = 4 'Ｂ列4行目から調べる num2 = 1 '連番は「1」からスタート Range("A:a").Clear 'Ａ列のデータをいったんクリアにする Do Until Cells(num, 2) = "" 'Ｂ列の氏名欄が空白なるまで処理を繰り返す Cells(num, 1) = num2 '連番「1」をＢ4にまず、代入する num = num + 1 '行を1行分下げる num2 = num2 + 1 '番号変数に1をプラスする Loop i = Range("B4").End(xlDown).Row End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで不一致に空白セルを挿入
エクセル2010です。 A、B列ともソートされています。 ごく少数ですが同一列内に重複するデータもあります。 そして A列に、1行目からA、B、C、E、F、F、H B列に、1行目からA、B、D、E、F、G、I （カンマは実際にはありません。） というような文字列データがある場合 別シートに A列に、1行目からA、B、C、空、E、F、F、空、H、空、 B列に、1行目からA、B、空、D、E、F、空、G、空、I、 （空は空白セルの意味です。） というように、お互いが一致しない場合は空白で飛ばし、一致するものは同じ行にするにはどのような方法がよろしいでしょうか？ 例のように少ないデータなら目で見て手作業でできますが、実際は千件以上のデータです。 VBAでも関数でも結構です。よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロ(行を挿入し連番を振る)
ボタンを押すと以下のことを実行するマクロを作成することはできますか？ A列2行目から 書類a 書類b 書類c 書類d 書類e C列2行目から 5 3 2 4 3 と入っています。C列は各書類の枚数です。 ボタンを押すと書類aと書類bの間に4行空白行が挿入され、A列とC列は増やした4行にそれぞれ書類a、5がコピーされ、B列には2列目から6列目まで1.2.3.4.5と連番が振られる。 というマクロです。 B列C列で1/5 2/5 3/5 4/5 5/5 であるという表現がしたいのです。(／は入りません) 書類が1枚の場合はB列C列共に空白で1/1とは入りません。 C列に入る書類の枚数により行が挿入されその書類の枚数分の連番が振られるようなマクロが作りたいです。 毎日何百行も手作業で挿入しコピーし連番を振る作業をしています。 決まった行数を増やすとか上の行をコピーするマクロならわかるのですが、C列の値を見て挿入する行数を判断するようなマクロができるのかわかりません。 どなたか教えて頂けないでしょうか。
- ベストアンサー
- Excel（エクセル）
- VBAで行を挿入する
VBAを始めた初心者です。 Exel2002使用です。 VBAでA列の4行目から10行目に行の挿入をできるようにしようと下記のように書きましたが、Rows("i:i").Selectの部分でデバックがかかってしまいます。間違っている理由がわからないのですがよろしくお願いします。 また、DO While Loopステートメントを使ってA列が空白になるまで（例えばA4セル以下の）行を挿入とする場合の方法も教えていただけましたら幸いです。 Sub 4行目から10行目まで() Dim i As Integer For i = 4 To 10 Cells(i, 1).Value = i Rows("i:i").Select Selection.Insert Shift:=xlDown Next i End Sub Sub 4行目から空白になるまで() Dim i As Integer Range（"A4").serect Do While activecell.value = "" Cells(i, 1).Value = i Rows("i:i").Select Selection.Insert Shift:=xlDown activecell.offset(1,0).select Loop End Sub
- ベストアンサー
- Visual Basic
- エクセルで行挿入＆コピー
エクセルにて下記のように入力してあります。 A B C D 111 111 222 111 次にＣ列の一行目にＭ001、Ｄ列の一行目にA00１を入力した後（セルは２行目）に任意の行数を挿入し、さらにＡ，Ｂ列は一行目をコピー、Ｃ，Ｄ列は連番になるようにＶＢで作成するにはどうしたらいいでしょうか。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBAで範囲を有するセルの記載位置を入れ替える
お世話になります。 あるデータを扱うため、sheet_1に以下のような表を作成し管理を行っております。 sheetは複数存在するので、敢えてsheet_1とします。 （sheet_1） B列ーC列ーD列ーF列ーG列ーH列ーＩ列ーＪ列ーK列ーL列・・・ ３行 Ａ Ａ Ａ Ａ Ｂ Ｂ Ｂ Ｂ Ｃ Ｃ ４行 Ａ Ａ Ａ Ａ Ｂ Ｂ Ｂ Ｂ Ｃ Ｃ ５行 Ａ Ａ Ａ Ａ Ｂ Ｂ Ｂ Ｂ Ｃ Ｃ ６行 Ａ Ａ Ａ Ａ Ｂ Ｂ Ｂ Ｂ Ｃ Ｃ ７行 Ｆ Ｆ Ｆ Ｆ Ｇ Ｇ Ｇ Ｇ Ｈ Ｈ ８行 Ｆ Ｆ Ｆ Ｆ Ｇ Ｇ Ｇ Ｇ Ｈ Ｈ ９行 Ｆ Ｆ Ｆ Ｆ Ｇ Ｇ Ｇ Ｇ Ｈ Ｈ １０行 Ｆ Ｆ Ｆ Ｆ Ｇ Ｇ Ｇ Ｇ Ｈ Ｈ １１行 Ｋ Ｋ Ｋ Ｋ Ｌ Ｌ Ｌ Ｌ Ｍ Ｍ １２行 以下、上記のように続く ４列毎×４行毎の１６セル分の範囲を１情報として扱っているのですが、VBAを利用して記入された横方向の情報を下部行（例えば150行目）で縦に置き換える方法をご教授いただきたく投稿致しました。 変換元の対象範囲はＢ３：ＢＭ１２６です。 （sheet_1） B列ーC列ーD列ーF列ーG列ーH列ーＩ列ーＪ列ーK列ーL列・・・ １５０行 Ａ Ａ Ａ Ａ Ｆ Ｆ Ｆ Ｆ Ｋ Ｋ １５１行 Ａ Ａ Ａ Ａ Ｆ Ｆ Ｆ Ｆ Ｋ Ｋ １５２行 Ａ Ａ Ａ Ａ Ｆ Ｆ Ｆ Ｆ Ｋ Ｋ １５３行 Ａ Ａ Ａ Ａ Ｆ Ｆ Ｆ Ｆ Ｋ Ｋ １５４行 Ｂ Ｂ Ｂ Ｂ Ｇ Ｇ Ｇ Ｇ Ｌ Ｌ １５５行 Ｂ Ｂ Ｂ Ｂ Ｇ Ｇ Ｇ Ｇ Ｌ Ｌ １５６行 Ｂ Ｂ Ｂ Ｂ Ｇ Ｇ Ｇ Ｇ Ｌ Ｌ １５７行 Ｂ Ｂ Ｂ Ｂ Ｇ Ｇ Ｇ Ｇ Ｌ Ｌ １５８行 Ｃ Ｃ Ｃ Ｃ Ｈ Ｈ Ｈ Ｈ Ｍ Ｍ １５９行 以下、上記のように続く 同一sheet内ではなく、新たにsheetを作成して同じ結果を求める方法でも構いませんので、恐れ入りますがご教授宜しくお願い致します。
- ベストアンサー
- Visual Basic
お礼
また何かあるかもしれませんが十分です。 すごいなぁ。ありがとうございます。