Excel で一意のレコードのみに高度なフィルターを使用する方法

毎日、Excel ユーザーはデータセット内の重複するエントリに対処する必要があります。その場合、高度なフィルター の Excel 機能 一意のレコードのみを使用するのは便利な方法です。 Excel の機能である UNIQUE 関数 (Excel 365 のみ) ) と VBA マクロ。

複数の同一のエントリを含むデータセットがあるとします。同一のエントリを削除して、そのうちの 1 つを一意に保ちたい.

この記事では、一意のレコードのみに高度なフィルターを使用するいくつかの方法を示します。

Excel ワークブックをダウンロード

Excel で一意のレコードのみに高度なフィルターを適用する 4 つの方法

方法 1:Excel の高度なフィルター機能を使用して一意のレコードをフィルター処理する

Excel は Data にオプションを提供します タブを 高度なフィルタ として .この高度なフィルタ 機能は、一意の値のみをフィルタリングできます。これは、この機能が重複レコードの 1 つを一意として保持し、残りを削除することを意味します。

データセットを調べたところ、3 が見つかりました 同一レコードのセット。したがって、これらの同一のものを削除する必要がありますが、各セットの 1 つが一意としてデータセットに残ります。

ステップ 1: 範囲全体を選択してから、データに移動します タブ> [詳細] を選択します (並べ替えとフィルターから セクション）

<強い>

ステップ 2: ENTER を押します 次に、次の図に示すように、すぐにすべての一意の値が表示されます。

上のスクリーンショットから、データセットから抽出されたすべての一意のレコードを確認できます。

続きを読む:条件付きの高度なフィルターの Excel VBA の例 (6 つの条件)

類似の読み方:

• 動的高度フィルター Excel (VBA &マクロ)
• VBA で高度なフィルタを使用する方法 (ステップバイステップのガイドライン)
• 条件範囲にテキストが含まれている場合に Excel で高度なフィルターを使用する方法
• Excel で高度なフィルターを使用してデータを別のシートにコピーする VBA

方法 3:重複を削除するための重複削除機能

重複を削除することも、一意のフィルターを適用する便利な方法の 1 つです。 Excel には 重複を削除 があります データのオプション タブ。この重複を削除 機能により、重複間で同一のレコードが 1 つ保持されます。

ステップ 1: 範囲を選択し、データに移動します タブ> [重複を削除] を選択します (データ ツールから) セクション）

ステップ 2: 重複を削除 ウィンドウが表示されます。ウィンドウで、[すべて選択] をクリックします。 オプションをクリックし、[OK] をクリックします .

ステップ 3: Excel は 3 つの重複を削除しましたという通知ウィンドウが表示されます . OK をクリックします .

➤ 重複の削除の実行 機能は重複を削除し、一意のレコードのみを保持します。

続きを読む: Excel の高度なフィルター:[次を含まない] を適用 (2 つの方法)

方法 4:一意のレコードをフィルタリングする VBA マクロ

VBA マクロは、基準に基づいた結果を達成するのに強力です。マクロ コードを使用して、一意のレコードのみをフィルター処理できます。

すでに重複を含むデータセットがあります。重複したエントリを簡単に識別できるように色分けしています。

ステップ 1: ALT+F11 を押します Microsoft Visual Basic を立ち上げます 窓。そのウィンドウで、[挿入] を選択します。 (ツールバーから )> [モジュール] をクリックします。 .

ステップ 2: モジュールに次のマクロを入力します .

Option Explicit
Sub Filter_Unique_Records()
Dim SourceRng As Range, PasteRng As Range
Dim lastRow As Long
Dim wrk As Worksheet
Set wrk = ThisWorkbook.Sheets("VBA")
Set PasteRng = wrk.Cells(4, 8)
If PasteRng <> vbNullString Then
lastRow = wrk.Columns(PasteRng.Column).Find("*", , , , xlByRows, xlPrevious).Row
wrk.Range(PasteRng, Cells(lastRow, PasteRng.Column + 2)).Delete xlUp
Set PasteRng = wrk.Cells(4, 8)
End If
lastRow = wrk.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row
Set SourceRng = wrk.Range(Cells(4, 2), Cells(lastRow, 6))
SourceRng.AdvancedFilter Action:=xlFilterCopy, copytorange:=PasteRng, Unique:=True
End Sub

<強い>

マクロはソース範囲を 行 4 から開始します 列 2 .貼り付け範囲は 4 行目から始まります 列 8 VBA セルの使用 関数。また、VBA Range.Delete を使用して、貼り付け範囲からコンテンツを削除する条件を課します。 方法。 In the end, the macro executes VBA AdvancedFilter Action .

ステップ 3: Use the F5 key to run the macro after that return to the worksheet. You see all the duplicate records get removed similar to the below picture.

Read More:Advanced Filter with Criteria Range in Excel (18 Applications)

結論

In this article, we use multiple Excel features, the UNIQUE function, and VBA macro code to filter only unique. Each above-mentioned method has its own convenience according to data type. Hope you find these methods excel in their cause. Comment if you have further inquiries or have anything to add.

関連記事

• Excel Advanced Filter [Multiple Columns &Criteria, Using Formula &with Wildcards]
• How to Use Advanced Filter to Exclude Blank Cells in Excel (3 Easy Tricks)
• How to Use Advanced Filter to Copy Data to Another Sheet in Excel
• How to Apply the Advanced Filter to Copy to Another Location in Excel
• Excel Advanced Filter Not Working (2 Reasons &Solutions)