• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• Mook2012/12/11 19:46:37

  満足100pt

  行全体を消すということなので、下記でどうでしょうか。
  重なっているデータの行をすべて消すという説明なので、
  H列がAA,BB,CC,AA,BB,AA だと CC の行だけになる処理です。
  

  Option Explicit
  
  Const ID_ROW = "H"
  Sub DeleteDuplicatedRows()
      Dim objDic
      Set objDic = CreateObject("Scripting.Dictionary")
  
      Dim r As Long
      r = 2
      Do While Cells(r, ID_ROW).Value <> ""
          objDic(Cells(r, ID_ROW).Value) = objDic(Cells(r, ID_ROW).Value) + 1
          r = r + 1
      Loop
      
      Application.ScreenUpdating = False
      Do While r >= 2
          If objDic(Cells(r, ID_ROW).Value) >= 2 Then Cells(r, ID_ROW).EntireRow.Delete
          r = r - 1
      Loop
      Application.ScreenUpdating = True
  End Sub
  

  スター

  • 

    1件のコメントを見る

  • Mook 2012/12/11 19:48:56

    セルの含まれる行を指定する場合は、EntireRow プロパティを使用します。

    スター

その他の回答

• slow_learner2012/12/11 17:04:03

  満足100pt

  xが列数、yが開始データの行数です。
  比較元の行も削除するようにしています。
  
  Sub hatena()
  x = 1
  y = 1
  Do While Cells(y, x).Value <> ""
  id1 = Cells(y, x).Value
  z = y + 1
  flag = 0
  Do While Cells(z, x).Value <> ""
  If Cells(y, x).Value = Cells(z, x).Value Then
  Cells(z, x).Delete Shift:=xlUp
  flag = 1
  Else
  z = z + 1
  End If
  Loop
  If flag = 1 Then
  Cells(y, x).Delete Shift:=xlUp
  Else
  y = y + 1
  End If
  Loop
  End Sub

  スター

  • 

    3件のコメントを見る

  • リセール京都買取 2012/12/11 19:41:34

    ありがとうございます。指定が「行ごと」となっておりまして、どうもその指定の列の行しか削除されないようです。そうすると、隣のデータとずれてしまいまして、少し困るのです。迅速なご回答ありがとうございます。

    スター

  • slow_learner 2012/12/11 20:17:50

    他の方の回答も付いていましたね。行削除に直したので、一応貼っておきます。
    ｘとyの使い方はさっきと一緒ですが、いちいち書き換えるのも大変なので、
    マクロ実行時点の選択セルの行と列を取得するようにしておきました。
    
    Sub hatena()
    x = Selection.Column
    y = Selection.Row
    Do While Cells(y, x).Value <> ""
    id1 = Cells(y, x).Value
    z = y + 1
    flag = 0
    Do While Cells(z, x).Value <> ""
    If Cells(y, x).Value = Cells(z, x).Value Then
    Rows(z).Delete Shift:=xlUp
    flag = 1
    Else
    z = z + 1
    End If
    Loop
    If flag = 1 Then
    Rows(y).Delete Shift:=xlUp
    Else
    y = y + 1
    End If
    Loop
    End Sub

    スター

  • リセール京都買取 2012/12/11 21:01:32

    ありがとうございました！ご丁寧に感謝します。動作いたしました！何度もすみません！！

    スター

kseikaku2012/12/11 17:48:45

満足10pt

マクロでないとダメですか？

重複がある列（質問だとH列）全体を選択した状態で、メニューの「データ」＞「フィルタ」でフィルタをかけて、「データ」＞「詳細設定」で詳細設定画面を開くと、下に「重複するレコードは無視する」のチェックボックスがあります。
こちらをチェックを入れると、重複するデータのあるレコードが非表示になるので、そのままつかうか、その状態で全体を選択して、別シートにコピーすれば、似たような状態になると思います。

スター

• 

  1件のコメントを見る

• リセール京都買取 2012/12/11 19:42:19

  ありがとうございます。その方法は知っているのですが、自動処理したいため、お願いしております。回答ありがとうございます。

  スター
• その他の回答を読む

この質問へのコメント

質問の情報

登録日時

2012-12-11 13:06:12

終了日時

2012-12-11 21:02:38

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• 経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…匿名質問者321日前
• オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…Ryoya3912日前
• ０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者11日前
• 友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者32日前
• 僕の親は苛立っています。 「俺はネットの天才なのに、なんで通報されたり、アカウント凍結されたりするん…匿名質問者343日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ