- ベストアンサー
削除される行と、されない行があります
kon555の回答
- kon555
- ベストアンサー率52% (1767/3390)
具体的なコードが分からないので間違っている可能性もありますが、個人的な経験からすると『D列とE列が同じ内容じゃない』が濃厚だと思います。 Excelはデータの入力内容と見た目が違ったりする事がよくありますので、そのパターンではないかと。 ただ、まずはVBAのステップ実行を行い、「条件判定が上手くいっていない」のか「行の削除が上手くいっていない」のか確認してみることをお勧めします。 今回の事例に限らず『VBAで思ったように動かない』という時には、どこの処理で失敗しているのか特定するのが最初の一歩です。 https://www.239-programing.com/excel-vba/basic/basic023.html
関連するQ&A
- セルの値が同じ行を条件に従って行削除するマクロ
Ａ～Ｅ列までデータがあり 行数は約30,000行あります。 A列は半角英数字と-で桁数は11桁又は14桁です。 数字のみもあれば数字と英字の組み合わせもあります。 （英字はどこの桁にあるか何個あるかは不規則です） 例 ABCD123456789X 124345678901234 55555-55555 ABC12345DEF678 Ｅ列には半角の 1 か 2 しかありません。 A列が同じ値の行を検出して重複している行は1行だけ残して 後は行削除をしたいです。 行削除はE列の値によって判定したいです。 重複行は1つの値に対して何行あるか不明です。 30,000行のうち、重複行を削除すると10,000行くらいになる予定です。 （１）重複行にてＥ列の値が１だけの場合 どれでもいいので1行残して残りは行削除 （２）重複行にてＥ列の値が２だけの場合 どれでもいいので1行残して残りは行削除 （３）重複行にてＥ列の値が１も２もある場合 Ｅ列の値が２の行をどれでもいいので1行残して残りは削除 例 （１） 1234567890XXXX-1 1234567890XXXX-1 1234567890XXXX-1 ↓ 1234567890XXXX-1 （２） 123ABCDE901234-2 123ABCDE901234-2 ↓ 123ABCDE901234-2 （３） 12345678901234-1 12345678901234-2 ↓ 12345678901234-2 ABC45678901234-1 ABC45678901234-2 ABC45678901234-1 ABC45678901234-2 ↓ ABC45678901234-2 手作業では５時間かかりましたがミスだらけです。 まだ数ファイル残っており手作業では厳しいのでマクロを 作成したいのですが、どう記述していのかまったく検討が付きません。 どうかよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル ＶＢＡにて行削除をしたい…
エクセル2003にて ＶＢＡ初心者です。 Ａ列1～100に101～200までに番号が振ってあります。 Ｚ列に記入がない場合はその行を削除するＶＢＡを教えてください。 例 A B C D E F …… Z 1 101 文字有り 2 102 ブランク 3 103 ブランク 4 104 文字有り 5 105 文字有り … 99 199 文字有り 100 200 ブランク この様な場合2,3,100の行ごと削除をするという形式のものです。 また、この場合A列の番号も自動で変われば（104が102になる等）最高です。 詳しい方教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで色の付いているセルの行削除
VBAで色の付いているセルの行を削除することは出来ないでしょうか？ 量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・ － 文字または数字 ■ 色の付いたセル（赤） Ａ Ｂ Ｃ Ｄ Ｅ Ｆ・・・ １－ － － － － － ２－ － － － － － ３－ － － ■ － － ４－ － ■ － － － ５－ － ■ － － － ６－ － － － － － ７－ － － ■ － － ８－ － ■ － － － ９－ － ■ － － － 10－ － － － － － ↓ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ・・・ １－ － － － － － ２－ － － － － － ６－ － － － － － 10－ － － － － － よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 行を削除するマクロ2
a列には0から2の数値が入っています。 2行目から、a列の数値が2かつ最下の行(この画像の場合は12行目)までを削除するマクロのvbaの構文を教えてください。 ただし、a列の数値がすべて2未満の場合、行は削除しないようにしてください。 削除するのは行全体で、a列だけではありません。 エクセル2010です。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡ 行の削除
全くの初心者で、初めて質問させていただきます。 Ａ列には、数字・空白・文字を入力したセルが混在しています。 そのＡ列の数字の内 0 のセルが入力されている行のみを削除するＶＢＡの記述の仕方を教えて下さい。 宜しく御願い致します。
- ベストアンサー
- Windows XP
- 【Excel VBA】重複行の削除
はじめまして。 IDの重複を削除し、日付データを横1列にまとめるVBAについてご教示いただけますと幸いです。 ------------------------------------------------------- ▼シート1（データ入力がされているシート） A B C D E F 1 ID 日付 2 1234 1/1 1/6 1/10 1/20 3 1234 2/3 2/20 4 1234 3/2 5 7777 1/10 1/15 1/20 6 7777 2/2 2/12 2/22 7 9876 2/3 ⇓ マクロ起動後 ▼シート2（重複行を削除しまとめたシート） A B C D E F G H 1 ID 日付 2 1234 1/1 1/6 1/10 1/20 2/3 2/20 3/2 3 7777 1/10 1/15 1/20 2/2 2/12 2/22 4 9876 2/3 【補足】 列情報 ・A列…ID ・B-F列…日付（左詰め） ※日付はIDごと月毎に行が変わるため、IDによって複数行存在する場合があります。 ※A列のIDは重複しない場合もあれば、4行以上ある場合があります。 ※シート１のデータはおおよそ1000-5000行です。 ※IDに対して、日付は５つあれば問題ありません。そのためG列以降の日付を削除しても支障はございません。 ------------------------------------------------------ VBAの知識があまりなく、調べて出てきたものをコピペ使用も試みたのですが、 上手く動かす事ができませんでした…。 お力添え頂けますと幸いです…。 Windows10でエクセル2016を使用しております。 何卒宜しくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- VBA もし、数字が同じだったら
VBAで、もし D1とE1が同じ値（数字）だったら・・・ 行ごと削除という式を作りたいのですが Rangeを使うとエラーが出ます。 今のところD1とE1が同じなら・・・ D2とE2が同じなら・・・というように行は変数にしたいと 思っています。 どんな関数を使って式を組めばいいのでしょうか。
- 締切済み
- Excel（エクセル）
- エクセルの行？列？の削除について
たとえば、A～Gまで使用していて E、Dの各１行、１列？を全部削除したら、後のF、Gの計算式が２つ分ずれてしまい式がおかしくなってしまいます。 削除した後にずれた分を自動的に修正する方法を教えてください。
- ベストアンサー
- オフィス系ソフト
お礼
有難うございます。 私もその可能性も考えました。 ただ、見た目としては同じでした。 入っている数字を消して別の数字を入れなおすと きちんと削除されるので特定の数字は削除対象に ならない、など何かVBA特有の事情でもあるのかな と感じたりもしました。