- ベストアンサー
Ｅｘｃｅｌｌ ＶＢＡ：dataの空白行を削除したい。
bin-chanの回答
- bin-chan
- ベストアンサー率33% (1403/4213)
手っ取り早いのは、 １．「行番号」の列を追加し連番を付与する。 ２．列Ａ（ｔの値の列）をキーにソートする。 ３．そうすると「空白行」だけ固まりますから「行番号のみの行を削除」。 ４．「行番号」列をキーにソートし直す。 ５．最後に「行番号」列を削除する。 上記の手作業を「マクロの記録」で行えばＶＢＡになるし、 そこまでしなくても、と思えば手作業でもたいした手間ではないと思います。 カーソルキーの操作でCtrl+矢印キーでその方向の端まで移動できるので ３．の処理はスクロールさせなくても可能です。 （範囲選択するならCtrl+Shift+矢印キーでｏｋ）
関連するQ&A
- 削除して空白になった行を下から詰めたい
Ａ行には項目の名前があり、A列には番号が上から１，２，３・・と振られています。 そして、B2からR999までにはそれぞれデータが入っています。 このとき、任意のＲ列のセルを選択したまま、マクロを実行すれば、 任意の行のB列からR行が削除されて、下から上に詰めるように（空白にならないように） するマクロを作りたいです。（Ａ行に割り振っている番号を消してしまうと 連番が崩れるので、B列からR列までを詰めていくような感じです） 例： 今、R11のセルを選択しています。希望のマクロを実行すると、C11～R１１が削除されて C12以降のデータが丁度上に移行するような感じです。 どのようなコードを作れば良いのか、お力をかしていただければ幸いです(/_;)
- ベストアンサー
- オフィス系ソフト
- マクロで、0のデーターの行を削除
下記のような表があるのです(毎月のため苦労して消してます)が、データーの合計欄(セル)が0の行を削除するマクロはどうしたらよいのですか？ A B C コード 合計 内容 1 001 0 0 この行を削除 2 003 5 2・・・ この行は残す 3 004 9 4・・・ この業は残す 4 010 0 0 この行は削除
- ベストアンサー
- オフィス系ソフト
- 行挿入+貼付けと空白行削除を同時に行うには？
行挿入+貼付けと空白行削除を同時に行うには？ VBA初心者です。 仕事でエクセルを使っていますが、 no 工程1 工程2 工程3 1 A B C 2 B _ A 3 C A _ 4 _ C A という表を no 工程 1 A B C 2 B A 3 C A 4 C というように並び替えたいのですが、 現在は各番号ごとに3行挿入して工程をコピー、行と列を入れ替えて貼付けをしています。 これだと no 工程 1 A B C 2 B A 3 C A 4 C A のように空白行ができてしまいます。これをもう一度、マクロで消しているのですが、 データ量が多いため、行挿入と空白行を消す作業を同時に行わないとシート最大行数である 65536行を超えてしまう可能性があります。 同時にやるにはどのようにすればよいのでしょうか？ よろしくおねがいします。
- ベストアンサー
- Visual Basic
- 【Excel VBA】条件つき行削除
Excel2003を使用しています。 システムからCSVで落としたデータで、データの並び方に規則性があるので、それを利用して、不要部分のデータをマクロで削除できないかと思い、質問させていただきます。 A列に『累計』を含む文字があった場合、その行のD列が0だったら、その行より上の行のA列に『計上日』と入力されている行までを削除するということをしたいです。 下記でいうと、2～5行までを削除したいです。 A B C D 1 2 計上日 3 4 5 累計 0 6 7 計上日 8 9 累計 1000 上記では、B列、C列には何も書いていませんが、実際はデータが入力されていたり、空欄だったりです。 D列が0の行を削除するコードはわかるのですが、さらに、条件が加わっても同じように処理は可能でしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excell2002でのデータ処理
Excell2002でのデータ処理に関数の使用を考えてます。 例えば、以下のようなデータがあります。 A列, B列 ,C列 1 , 10 , 2 , 12 , 3 , 8 , 10 5 , 15 , 8 8 , 20 , 9 , 18 , 10 , 16 , 20 ・ ・ (列がきれいに表示されてませんが！) A列は通し番号でありますが、中にはＡ列Ｂ列ともに同じ行で欠測値があります。 要はC列に「A列ー２の行」のＢ列の値を入れたいのです（上記Ｃ列参照）。 勿論Ｂ列に欠測値があるので該当する値がなければ「ブランク」とします。 ⇒Ｃ列にどのような関数を使えば良いのでしょうか？ ⇒ＩＦ関数かとは思いますが・・・？ ご教示ください。
- ベストアンサー
- オフィス系ソフト
- VBAで空白行を削除する。
初めまして、VBA初心やです。なので具体的にご教授願います。環境WindoesXP SP3 EXCEL2010です。やりたい事Book1に空白行が沢山あるSheetが一枚あります。Sheetの中身は下記の通りです。 一行目に項目があります。n行目にも項目があります。nは、10個です。項目の下の行には、デターがあります。以下のようになっております。初めの位置はB2です。 B2 項目Ａ 項目B 項目C 項目D・・・・・ 項番１ データ1 データ2 データ3 データ4・・・・・・ 項番2 データ1 データ2 データ3 データ4・・・・・・ 項番3 データ1 空白 データ3 データ4・・・・・・ 項番4 データ1 データ2 空白 データ4・・・・・・ 項番5 データ1 データ2 空白 空白・・・・・・ 項番6 データ1 データ2 空白 空白・・・・・・ 項番7 データ1 データ2 空白 空白・・・・・・ 項番8 空白 空白 空白 空白・・・・・・ ・ ・ ・ ・ ・ Bn 項目Ａ 項目B 項目C 項目D・・・・・ 項番１ データ1 データ2 データ3 データ4・・・・・・ と続きます。この項番1は残して、項番8の様な空白セルが続く行だけ削除したいので、 以下のマクロを組みました。 Dim ii As Long Dim MaxRow(1 To 100) As Long Dim MaxCol As Long '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ MaxRow(1) = Cells(Rows.Count, 2).End(xlUp).Row MaxRow(2) = Cells(Rows.Count, 21).End(xlUp).Row MaxRow(3) = Cells(Rows.Count, 22).End(xlUp).Row MaxRow(4) = Cells(Rows.Count, 23).End(xlUp).Row MaxCol = Range("IV4").End(xlToLeft).Column Application.ScreenUpdating = False '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ For i = MaxRow(1) To 3 Step -1 '配列にした。 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ For j = 1 To MaxCol Step 1 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ If Cells(4, j).Value = "" Then GoTo Label22 'Else GoTo Label11 Label22: Range(4 & ":" & MaxCol).Delete Label11: Next j 'End If Next i Application.ScreenUpdating = True MsgBox "マクロが終了しました" End Sub しかし、ソートしてMaxRowの配列のいくつになるかを計算する処が判りません。 なので、空白行を削除できません。 ようするに、各項目(行)の空白セルがまちまちで(凹凸があり)、全ての項目が空白である処を探す事が出来ません。 何卒宜しくご教授願います。
- ベストアンサー
- オフィス系ソフト
- マクロによる条件での行の入力と削除
初めまして、よろしくお願いします。 次のような二枚のシートがあります シート１ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ２３ １０１ ２５ １０２ ３１ １０３ ３４ １０４ ４３ １０５ ４４ １０６ ４９ １０７ ５０ １０８ ５５ １０９ ６０ １１０ １１１ ・ ・ シート２ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ２３ １ ２ ３ １０１ ２５ ４ ５ ６ １０２ ３１ ７ ８ ９ １０３ ３４ ０ １ ２ １０４ ４３ ３ ４ ５ １０５ ４４ ６ ７ ８ １０６ ４９ ９ ０ １ １０７ ５０ ２ ３ ４ １０８ ５５ ５ ６ ７ １０９ ６０ ８ ９ ０ １１０ １１１ ・ ・ シート１とシート２のA列に入っている数字が通し番号です。シート２では加えてその通し番号のデーター数字がＢ列、Ｃ列、Ｄ列に入っています。 のこシート１の通し番号３１が削除、代わりに通し番５番と５１番を追加し、 シート１ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ５ １０１ ２３ １０２ ２５ １０３ ３４ １０４ ４３ １０５ ４４ １０６ ４９ １０７ ５０ １０８ ５１ １０９ ５５ １１０ ６０ １１１ １１２ ・ ・ マクロを実行すると シート２ Ａ Ｂ Ｃ １ ２ ・ ９９ １００ ５ １０１ ２３ １ ２ ３ １０２ ２５ ４ ５ ６ １０３ ３４ ０ １ ２ １０４ ４３ ３ ４ ５ １０５ ４４ ６ ７ ８ １０６ ４９ ９ ０ １ １０７ ５０ ２ ３ ４ １０８ ５１ １０９ ５５ ５ ６ ７ １１０ ６０ ８ ９ ０ １１１ １１２ ・ ・ シート２がこように通し番号３１が入っていた行番１０２行が削除され、新たに通し番５番が行番１００に、５１番が行番１０８に挿入追加されるマクロを教えていただきたく、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 空白行削除
宜しくお願いします。 1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。 空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部) ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- VBA アクティブ行の削除
エクセルで、アクティブにしているセルの行のA列からL列のみを削除というマクロを組みたいのですが、どのように記述したらいいのでしょうか？ アクティブなセルはA列～L列のどこにあっても、その行のA列-L列を削除というようにしたいです。 （例1） A1がアクティブだった場合、A1～L1が削除される （例2） B4がアクティブだった場合、A4～L4が削除される すみませんが、お分かりになる方がいましたらよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
お礼
そういう方法があるんですね。 全然、思いつきませんでした。 参考になりました。 ありがとうございました。