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

通常、ほとんどの場合、列から重複する値を削除したいのですが、列にXNUMX回だけ表示される一意の値を削除したい場合もあります。 このチュートリアルでは、Excelの列からのみ一意の値を削除するための秘訣について説明します。

ExcelのVBAでunqiue値を削除します

Kutools forExcelでunqiue値を削除する

---

ExcelのVBAでunqiue値を削除します

VBAを使用すると、XNUMXつの列からすべての一意の値をすばやく削除できます。

1。 押す Altキー+ F11 を表示する アプリケーション向け Microsoft Visual Basic 窓。

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コードを実行するためのボタン、および Kutools for Excel 動作する範囲を選択するためのダイアログが表示されます。 スクリーンショットを参照してください：

4。 クリック OK、およびすべての一意の値が削除されます。

---

Kutools forExcelでunqiue値を削除する

VBAに慣れていない場合は、Kutools for Excelの[複製と一意のセルの選択]機能を使用して、Excelの一意の値を削除することを検討できます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手

1.一意の値を削除する列を選択し、をクリックします クツール > 選択 > 重複セルと一意セルを選択します。 スクリーンショットを参照してください：

2.ポップアウトダイアログで、チェックします 一意の値のみ をクリックし Ok、次にこのダイアログを終了します。 スクリーンショットを参照してください：

3.次に、すべての値がXNUMX回だけ選択されて表示されます。 そして右クリックしてクリック 削除 コンテキストメニューで。 スクリーンショットを参照してください：

4。 の中に 削除 ダイアログで、行全体をチェックし、をクリックします OK。 スクリーンショットを参照してください：

これで、一意の値が削除されていることがわかります。

先端：セルの内容を削除したいだけの場合は、 明確な内容 手順3のコンテキストメニューから。

Select Duplicate＆Unique Cellsの詳細については、ここをクリックしてください。

---

関連記事：

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

---