• ベストアンサー

同じデータが入力されている行の一括削除

A列からI列。1行目には項目名で3000行のデータが入力されています。 F列に商品コードが入力されているのですが、同じ商品コードが入力されている行は1行を残して削除したいのですが、いい方法はありますでしょうか? 今の自分にできる方法は商品コードで並べ替えをして、手作業で削除していく方法しかわかりません。よろしくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • ka_na_de
  • ベストアンサー率56% (162/286)
回答No.2

マクロ(VBA)を使えば、簡単なのですが、 あえて関数とメニュー操作だけの例を紹介します。 1)G列を選択し、右クリックし、「挿入」   新たに空白のG列が挿入されます。 2)G1セルに 「重複数」 と入力 3)G2セルを選択し、   =COUNTIF($F$2:$F2,F2)   と入力 4)G2セルを選択すると右下に■が出るので、ダブルクリック   これで、G列のデータ行すべてに2)の式が入りました。   データの重複回数が計算されます。 5)G列を選択し、「コピー」   「編集」→「形式を選択して貼り付け」→「値」にチェック→「OK] 6)「Ctrl」+「A」で全選択 7)「データ」→「並べ替え」   「最優先されるキー」を「重複数」にして「昇順」で「OK」 8)重複数2以上の行を選択して、削除

kurikurichan
質問者

お礼

簡単にできました^^ ありがとうございました。 マクロができたら色々なことができるんでしょうねぇ~ 難しそうで私には無理ですが・・・(^_^;)

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.1

次の方法は如何でしょうか。 (1)F列を選択 (2)データ→フィルタ→フィルタオプションの設定→OK→重複するレコードは無視するにチェック付け→OK (3)選択された範囲をコピー→別シートに貼り付け

kurikurichan
質問者

お礼

その他の列にも重複しているデータがあるので、今回はこの方法ではできませんでしたが参考にさせていただきます。 ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 行一括削除を早く行う、こんな方法できますか。

    マクロによる行削除については、空白行の削除などいろいろな質問と 回答が出ていますが、データ量が多くなると自動化でもかなり時間が かかります。 そこで、ソートにより並べ替えを最初に行い、ある列に、最初に ある言葉や数字が出た行から最終行までを一括削除するマクロなら、 処理時間が早く出来ないかと思いました。 例えは、データA10からZ300で、並べ替えによりH列の最初に 日本という言葉が出たら、その行から最終300行までを一括削除 するという方法です。 (削除は行全体でもAからZまでの行、どちらでもよいです) そんな方法が出来るなら教えて下さい。よろしくお願いいたします。

  • エクセルのマクロで重複データの削除

    横17列、縦、約1000行の表があります。 4行目が項目で、5行目以降は次のように並んでいます。 A列(日付)、B列~H列(各データ) I列(契約番号)J列~Q列(各データ) 縦の並び順は、ばらばらで、日付順ではありません。しかも結構重複があります。 そこで、I列の商品番号をキーにして、重複をチェックし、重複しているものは、日付が新しいものを生かし、古い方は削除しようと思います。 しかし、手作業でやるにはあまりに多すぎるため、出来ればマクロでやりたいのですが、このように高度なものは、わたしが出来るマクロの記録程度では手におえそうもありません。 どのようにやったらよいのかどなたかお教え願えませんでしょうか?

  • エクセルで、ダブリデータの削除

    エクセルの重複データを簡単に削除する方法を教えてください。 今までは並べ替えをして手作業で行ごと削除したり ピボットテーブルで集計した結果データの個数が2以上のものを 手作業で行ごと削除していました。 ミスが発生する可能性があるので、 関数などを使いこなして正確に削除する方法はありませんか?

  • 【ExcelVBA】特定データのセルの行を削除するには?

    毎日、行も列も増えるCSVデータを手作業で加工して資料を作成しています。ある列の中でいくつかのセルに入っているデータ(複数)を見つけると、その行は削除しています。VBAで自動化したいのですが、どなたか良い方法を教えて頂けませんでしょうか?

  • 行の数値をまとめて並べ替える方法

    例えば 1 A列の1行から50行に「スカート」「シャツ」「靴」「靴下」「ダウン」「コート」などの品目を入力 2 B列からF列にそれぞれの品目の最高値から最安値をランダムに入力 3 すべての価格をまとめて「降順」あるいは「昇順」に並べ替える  B列からF列を50行まとめて簡単に並べ替えたいです。 以上の作業を簡単にできる方法はありますか 「データ」「並べ替え」「オプション」「行選択」しかないでしょうか 使用しているのは2003になります。 よろしくお願いします。

  • 不要行を削除したい

    『B列のとあるセルに「あああ」と入力されているなら B1から「あああ」の一つ上の行まで削除する』というコードが知りたいです。 なので例えば 「あああ」がB100に入力されているとしたら 1行目から99行目まで削除して「あああ」を「B1」に持ってくるようにしたいです。 よろしくお願いします。

  • エクセルのファイル中の空白行を削除する方法

    エクセルのファイルでデータ入力されているものがあるのですが 空白の行があり,それを削除したいのですが たくさんあって手作業では大変です。 マクロなどでうまく自動的に削除できないものでしょうか? 因みにデータはA列にのみ入力されてます。 宜しくお願いします。

  • Excelで複数列かつ複数行分の一括並べ替えについて教えてください

    Excel2003を使っています。 【例】 A1:N530の表の中の一部分D1:I530範囲(6列で530行)部分のみを 列単位で一括で並べ替えしたいと思っております。 D1:I530範囲には6列に23、96、11、106、72、49といったように530行全てランダムに数値が入っております。これを各行毎に全て左から昇順に530行分一括並べ替えしたいということでございます。 エクセル機能の「データ」→「並べ替え」→「現在選択する範囲を並べ替える」→「オプション」→「列単位」を指定して列単位に並べ替えは出来たのですが1行ずつしかソート出来ません。 このやり方では530回並べ替え作業をすることになり、時間的に余裕がないのでこの場合にExcel2003の機能で一括で530行分を列単位でもって左から並べ替えをする方法があるでしょうか? ちなみにExcel2007もまだ使ったことないですが所持しています。 仕事上緊急でご質問させていただいております。是非助けてください。

  • 行削除のマクロ

    B列~F列にデータが入っていてB列の最終行の下セルを選択しクリップボードのデータを貼り付けた後、貼り付けたデータの最初の3行を削除するマクロを作っています。 Sub Macro1() ''Worksheets("Sheet1").Activate ' addrw = Range("b65536").End(xlUp).Offset(1).Row Cells(addrw, 2).PasteSpecial end sub これでB列の最終行の下にデータを貼り付けることまで出来たのですが貼り付けた最初の3行の削除の仕方がわかりません。 いい方法があれば教えていただけないでしょうか。  例えばB列の10行目まで既に入力されていた場合、11行目からクリップボードのデータを貼り付け(ここまでは上のプログラムで出来ました。)、11行目から13行目を削除したいのですがどうしたらいいでしょうか?

  • エクセル 行への入力制限

    各行のデータ入力用セルに入力制限を設けたく質問させていただきます。 A列と1行目が項目になっている表があります。 行数には決まりがなく多かったり少なかったりします。 列はFまでの固定で、データをBからFまで入力するようになっています。 さて質問させていただきたいのは、このデータ入力用のセルに1行で1セルしか入力できないようにしたいのです。 B2にデータを入力した場合、C2からF2までには入力できないようになり、なおかつ入力しようとした場合にアラート警告できるようにしたいのです。 今は目視で確認しています。 よろしくお願いします。

専門家に質問してみよう