如何使用VBA過濾多列重複資料

VBA 通常查詢重複的 bai 值

使用字典物件作為示例。

**：set db = createobject("")arr = range("a1:d10") '需要檢查 i=1 到 ubound（arr）for j=1 到 ubound（arr，2）if ，j）） 的 zone back 域然後

msgbox "找到重複的答案：" & arr(i,j)else

db(arr(i,j)) = true

end if

next j

next i

VBA 查詢重複值 1。

類似複製的字典物件，例如 **：

set db = createobject("")arr = range("a1:d10") '要檢查的區域：for i=1 to ubound（arr）for j=1 to ubound（arr，2）if ，j））然後

msgbox "找到重複值：" & arr(i,j)else

db(arr(i,j)) = true

end if

next j

next i

sub 刪除重複項 （）。

dim arr, d

dim i as integer, c as rangeset d = createobject("")for each arr1 in arr

d(arr1) = ""

nextend sub

要學習VBA，可以關注優酷小徐的部落VBA入門教程第一季。

您的重點不是刪除重複項，而是多列。 他為您的單列重複刪除提供了完整的解決方案。

問題是您的多列刪除需要進一步解釋。

Excel 如何快速篩選重複資料。

條件格式。

countif（a：a，a1）>1 標記顏色或次列。

if（countif(a:a,a1)>1,"重複",""）

如果是Excel2007或Copy2010，則在“資料”選項卡下，有乙個“刪除重複項”按鈕。

如果是 2003 年，則首先對列中的資料進行排序，然後選擇列中的資料，然後，資料 - 資料透視表... 繼續單擊“下一步”，直到完成。

然後拿出三個部分，將“資料透視表字段列表”的內容拖到“將行字段拖到此處”。 此時，您會看到唯一想要的值

資料透視表的功能相當多，但只使用了其中的一小部分，因此建議多學習一下，看看是否有用。

如果是 2016 版本並支援 textjoin，則公式：=textjoin（"",1,if(isnumber(find(row($1:$10)-1,a1)),row($1:

對於陣列公式，您需要以 shift+ctrl+enter 三個鍵結尾。

如果有列，可以直接使用過濾功能。

在單個單元格中還是在不同的行中？

為你提供想法，使用字典方法識別是否有重複項，然後讀出重複項，最後輸出，或者直接遍歷所有單元格進行計算，找出是否大於2。

如果你不明白或不會寫，可以私信我幫你寫。

要通過並集方法解決問題，請參考我的空間並集。

以下**已完成。

讓您的資料位於 A 列和 B 列中，並將兩列中的唯一資料提取到 C 列中。

sub 提取兩列未重複的資料 1 （）。

dim d, temp

dim r&, r1

dim arr, arr1

set d = createobject("")r = range("a65536").end(xlup).rowr1 = range("b65536").

end(xlup).rowarr = range("a1:a" & r).

valuearr1 = range("b1:b" & r1).valuefor each temp in arr

d(temp) = 1

nextfor each temp in arr1d(temp) = 1

nextrange("c1").resize(, 1) =end sub

您只需將實際資料列 A、B 和 C 替換為實際列標籤，列 A 和 B 可以新增或減去資料。

將 2 列資料複製到一列中並刪除重複項。