- ベストアンサー
特定文字のある行の前に空白行を挿入したい
5000行ほどあるエクセルファイルで、 「■」の文字がある行の直前に空白行を挿入したいと思っています。 「■」のある行が1500行ほどあるので、 手作業は大変かと思い、マクロでやるのはどうかな?と おもったのですが、既存のマクロを少し修正することはあっても 初めからマクロを組んだことがないので、 どう書けばよいかわかりません。 データはA列にしか無い状態で、 「■」がある行の直前に空白行を挿入するマクロは どのように書けばよいのでしょうか? ご教授のほどお願いします。
- gao0000
- お礼率90% (9/10)
- その他MS Office製品
- 回答数2
- ありがとう数7
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
>初めからマクロを組んだことがないので、 一般機能でもできると思います。 検索で「■」[すべて検索] 下に検索されたセルが表示されるので [CTRL]+[A]を押して、すべて選択します。 最後の「■」にカーソルがあるので、そのセルで右クリック。 [挿入]をクリック。[行全体]を選択して[OK] いかがでしょう。
その他の回答 (1)
- ka_na_de
- ベストアンサー率56% (162/286)
こんばんは。 すでに回答がでていますが、 参考までにサンプルコードを作ってみました。 '======標準モジュールに記述========================================= Sub test() On Error GoTo Err_ Dim c As Object Dim myKey As String Dim myRange As Range Dim UnionRange As Range Dim fAddress As String Set myRange = Range("A1", Cells(Rows.Count, "A").End(xlUp)) myKey = "■" With myRange Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlPart, _ SearchOrder:=xlByColumns, MatchByte:=False) If Not c Is Nothing Then fAddress = c.Address Do If UnionRange Is Nothing Then Set UnionRange = c Else Set UnionRange = Union(c, UnionRange) End If Set c = .FindNext(c) If c.Address = fAddress Then Exit Do Loop End If UnionRange.EntireRow.Insert End With Bye_: Set myRange = Nothing Set UnionRange = Nothing Set c = Nothing Exit Sub Err_: MsgBox Err.Description, vbCritical Resume Bye_ End Sub
お礼
popupltさんの回答で解決しましたが、 わざわざありがとうございます。
関連するQ&A
- エクセルで1行ごとに空白行を挿入し、挿入した空白行に色をつけたいです
タイトルの通りです。 エクセル(2000)で、データはシート毎に件数が違います。 各シート毎にそれぞれ1行毎、空白行を挿入し、挿入した空白行のA列~G列までに薄いグレーの色をつけるマクロを入れたいのですが、うまくいきません。 詳しい方、教えて下さい。
- 締切済み
- オフィス系ソフト
- エクセルマクロ、空白行(セル)の挿入
データがA、B、C、D、E列100行まであります。 このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。 (A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。) ご教授頂きたく、お願いします。
- 締切済み
- その他(Windows)
- 特定の文字の上に行を挿入したい。
特定の文字の上列に空白の1行を挿入したいのですが、どうしてもわかりません。 B列に1900~2350まで10刻みで(1900・1910・1920・・・) 数字が60000行、繰り返しで入っております。 1900と2230の上列に1行、空白の行を挿入したいのですが、 マクロで1発挿入できないでしょうか? 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ、集計行の上に空白行挿入
エクセルデータがA、B、C、D、E列1000行まであります。 C列基準でE列を合計するマクロを作成しましたが(集計行はデータの下に挿入)、実行の結果、新たに挿入される集計行の上に空白行を1行挿入していくということを、作成したマクロに付加できるでしょうか? ご教授頂きたく、お願いします。
- ベストアンサー
- オフィス系ソフト
- 複数行に空白行を一括で挿入したいのですが
エクセルに関する質問です。 セルA列の14行目から30000行まである数字が入力されています。 各行間に一行ずつ空白行を挿入したのですが マクロを使ったやりかたでもかまいませんので 一括でする方法があれば教えていただけないでしょう?
- ベストアンサー
- オフィス系ソフト
- エクセルで空白行を挿入するには
一つの列に200ほどデータがあるとします。 そこで1行おきに空白行を挿入していきたいのですが手でいちいち空白行を挿入していてはらちがあきません。 関数等も含めて、なにか良い方法はないでしょうか。 例 セルA1 セルA2 セルA3 以下続く ↓ セルA1 空白行(セル) セルA2 空白行(セル) セルA3 空白行(セル) 以下続く といった具合です。
- ベストアンサー
- オフィス系ソフト
- エクセルで特定の文字が含まれる行から特定の文字が含まれる行の削除方法
エクセルで特定の文字が含まれる行から特定の文字が含まれる行の削除方法 表題のとおりですが、エクセルで特定の文字が含まれる行から特定の文字が含まれる行の削除方法について教えてください。 特定の文字(C列にあります)が含まれている行から5行下の先ほどとは違う文字(これもC列にあります)までを削除したいのです。 それがたくさんあり大変困っております。 エクセルを起動してマクロの記録を行い手作業で5回削除し記録終了としたのですが、 5回以上削除したい場合は操作が行われませんでした。 これをマクロで行うにはどういう式を作ればいいでしょうか? 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのファイル中の空白行を削除する方法
エクセルのファイルでデータ入力されているものがあるのですが 空白の行があり,それを削除したいのですが たくさんあって手作業では大変です。 マクロなどでうまく自動的に削除できないものでしょうか? 因みにデータはA列にのみ入力されてます。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルの行挿入を楽にするには?マクロ?
エクセルで、1000行近くのデータの各行間に、4列ずつ行挿入しています。 手作業のため時間がかかってしまいます。(4000行!) この作業をマクロ化できませんか? できれば、あける行間数も、4行以外の任意の数に指定できると更に助かります。
- ベストアンサー
- オフィス系ソフト
- マクロを使って特定の文字の入った行を非表示にしたいのですが・・
エクセルのマクロを使って 自分の選択した範囲内で L列に"摘要"かつK列に"金額"の文字が入っている行と L列が空白かつD列も空白である行 を削除するようにするにはどうしたらよいでしょうか 仕事の中でこれがマクロでできるようになるとすごく便利なので・・。よろしくお願いします。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。 解決しました!