エクセルで同じ数値の行を削除

質問

エクセルで以下のような1000行位のデータがあります。
Ａ列　Ｂ列
大阪　1,001　
東京　1,200
高知　1,300
大阪　1,200
なら　1,000
神戸　1,001

これらからＢ列が同じ数値の行を削除し、以下のように
するにはどうしたら良いでしょうか？
よろしくお願いします。

Ａ列　Ｂ列
東京　1,200
高知　1,300
大阪　1,200
なら　1,000

回答No.2

keirika · ベストアンサー

１．C1に=COUNTIF(B:B,B1)と入力します。
２．式を下方向にコピー。
３．１行目に行を挿入し、見出しを付けます。
４．オートフィルターで抽出条件としてＣ列で１と等しくないを選択。
５．データを選択し、右クリックで行の削除。
６．Ｃ列を削除。

これでどうでしょうか。

念の為、バックアップを取ってから行ってください。

お礼

おかげさまで、出来ました！！ありがとうございました。

回答No.4

imogasi

質問が少数の実例だけ挙げて、一般ルールを文章で説明しないから、質問内容が不明確だと思う。＃１のご指摘もそうですが、
質問では、一般ルールを文章での説明も添えること。！
ーー
例えば、後の方で「大阪」が出てくるので、先立つ大阪は捨て後の方を残す。という風にもとれる。
例データ
Ａ列　　　Ｂ列　　　　　Ｄ列
大阪 1,001
東京 1,200 1
高知 1,300 2
大阪 1,200 3
なら 1,000
神戸 1,001 4
なら 1,300 5
Ｄ列の式は=IF(ISERROR(MATCH(A2,A3:$A101,0)),MAX($D$1:D1)+1,"")
と入れて下方向に式を複写
ーー
別シートＳｈｅｅｔ２において
Ａ列Ａ２に
=INDEX(Sheet1!$A$1:$B$100,MATCH(ROW()-1,Sheet1!$D$1:$D$100,0),1)
Ｂ列Ｂ２に
=INDEX(Sheet1!$A$1:$B$100,MATCH(ROW()-1,Sheet1!$D$1:$D$100,0),2)
と入れて下方向に式を複写。
結果
Ａ列　　　Ｂ列
東京 1200
高知 1300
大阪 1200
神戸 1001
なら 1300
以上「imogasi方式」（Ｇｏｏｇｌｅで照会のこと）
ーー
質問文不明瞭で、質問の意味を取り違えているかもしれないので、
#N/Aをださない式は略。上記ＷＥＢ参照のこと。

お礼

おかげさまで、出来ました！！ありがとうございました。

回答No.3

Rin-u_u

"Dictionary"を使った例を最近勉強したので・・・
外してたらごめんなさい
データのバックアップを取ってから試してください

表がSheet1にあるとして、Sheet2に書き出します。

Option Explicit

Sub test()
Dim myDic As Object
Dim myR As Range
Dim r As Range

With Sheets("Sheet1")
Set myR = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
Set myDic = CreateObject("Scripting.Dictionary")
For Each r In myR
If Not IsEmpty(r.Value) Then
If Not myDic.Exists(r.Value) Then
myDic(r.Value) = r.Offset(, 1).Value
End If
End If
Next
With Sheets("Sheet2")
.Cells.ClearContents
.Range("A1").Resize(, 2).Value = Sheets("Sheet1").Range("A1").Resize(, 2).Value
With .Cells(2, 1).Resize(myDic.Count)
.Value = Application.Transpose(myDic.Keys)
.Offset(, 1).Value = Application.Transpose(myDic.Items)
End With
End With
End Sub

お礼

おかげさまで、出来ました！！ありがとうございました。

回答No.1

phoenix343

？
東京　1,200
大阪　1,200
も同じ数値ですよね？

他に条件がなかったりしませんか？

お礼

おかげさまで、出来ました！！ありがとうございました。