Excelで列から一意の値を削除するにはどうすればよいですか？

通常、多くの人は列から重複する値を削除したいと考えますが、時には列の中で1回しか出現しない一意の値を削除したい場合もあります。このチュートリアルでは、Excelの列から一意の値のみを削除するためのコツについて説明します。

ExcelでVBAを使用して一意の値を削除する

Kutools for Excelを使用して一意の値を削除する

---

ExcelでVBAを使用して一意の値を削除する

VBAを使用すると、1つの列からすべての一意の値を迅速に削除できます。

1. Alt + F11 を押して Microsoft Visual Basic for Applications ウィンドウを表示します。

2. ウィンドウで、 挿入 > モジュール をクリックして新しいモジュールウィンドウを表示し、次のVBAコードをモジュールウィンドウにコピーします。

VBA: 列から一意の値を削除する

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub

3. 「実行」をクリックします。 実行 ボタンを押してVBAコードを実行すると、作業範囲を選択するためのダイアログがポップアップします。スクリーンショットをご覧ください： KutoolsforExcel ダイアログがポップアップして範囲を選択します。スクリーンショットをご覧ください：

4. OKをクリックすると、すべての一意の値が削除されます。

---

Kutools for Excelを使用して一意の値を削除する

VBAに慣れていない場合は、Kutools for Excelの「重複および一意のセルを選択」機能を使用して、Excelで一意の値を削除することを検討してください。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手

1. 一意の値を削除したい列を選択し、Kutools > 選択 > 重複および一意のセルを選択 をクリックします。スクリーンショットをご覧ください：

2. ポップアップダイアログで、「一意の値のみ」にチェックを入れてOKをクリックし、ダイアログを終了します。スクリーンショットをご覧ください：

3. これで、1回だけ出現するすべての値が選択されます。右クリックしてコンテキストメニューから「削除」をクリックします。スクリーンショットをご覧ください：

4. 「削除」ダイアログで「行全体」にチェックを入れ、OKをクリックします。スクリーンショットをご覧ください：

これで、一意の値が削除されたことが確認できます。

ヒント：セルの内容だけを削除したい場合は、ステップ3のコンテキストメニューから「内容をクリア」をクリックできます。

「重複および一意のセルを選択」に関する詳細情報は、こちらをクリックしてください。

---

関連記事：

• Excelでコメントをすべて削除する
• Excelで重複行を削除する

---