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

多くのユーザーは通常、列から重複する値を削除したいと考えますが、場合によってはその列に一度しか出現しない一意の値を削除したいこともあるでしょう。このチュートリアルでは、Excel の列から一意の値を削除するテクニックをご紹介します。

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

Kutools for Excel で一意の値を削除する

---

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

VBA を使えば、ある列からすべての一意な値をすばやく削除できます。

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 で削除する

---