How to filter multiple columns of duplicate data with VBA

VBA looks for duplicate bai values in general

Use dictionary objects for examples.

**：set db = createobject("")arr = range("a1:d10") 'The zone back domain that needs to be checked for i=1 to ubound(arr)for j=1 to ubound(arr,2)if ,j)) then

msgbox "Duplicate answers found:" & arr(i,j)else

db(arr(i,j)) = true

end if

next j

next i

VBA looks for duplicate value one.

Copy-like dictionary objects, e.g. **:

set db = createobject("")arr = range("a1:d10") 'The area to be checked: for i=1 to ubound(arr)for j=1 to ubound(arr,2)if ,j)) then

msgbox "Duplicate values found:" & arr(i,j)else

db(arr(i,j)) = true

end if

next j

next i

sub Remove Duplicates ().

dim arr, d

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

d(arr1) = ""

nextend sub

To learn VBA, you can pay attention to Youku Xiao Xu's Tribe VBA Introductory Tutorial Season 1.

Your focus is not on removing duplicates, it's about multiple columns. He offers a complete solution to your single column duplicate removal.

The problem is that your multi-column deletion needs to be explained further.

How Excel can quickly filter duplicate data.

Conditional formatting.

countif(a:a,a1)>1 to mark a color or a secondary column.

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

If it's Excel2007 or Copy2010, under the "Data" tab, there is a "Remove Duplicates" button.

If it is 2003, first sort the data in the column, then select the data in the column, and then, the data - pivot table... Keep clicking Next until you're done.

Then come out with three sections, drag the contents of the "PivotTable Field List" to "Drag the row fields here". At this point, you see the only value you want

There are quite a lot of functions of pivot tables, but only a small part of them are used, so it is recommended to learn more and see if it is beneficial.

If it is a 2016 version and supports textjoin, the formula: =textjoin("",1,if(isnumber(find(row($1:$10)-1,a1)),row($1:

For array formulas, you need to end with the three keys of shift+ctrl+enter.

If you have a column, you can directly use the filter function.

In a single cell or in different rows?

Provide ideas for you, use the dictionary method to identify whether there are duplicates, and then read out the duplicates, and finally output, or directly iterate through all cells to calculate, and find out if it is greater than 2.

If you don't understand or can't write, you can send a private message and I'll help you write.

To solve the problem by the union method, please refer to the union of my space.

The following ** is completed.

Let your data be in columns A and B, and extract the unique data in the two columns into column C.

sub Extract two columns of unduplicated data 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

You only need to replace your actual data columns A, B, and C with your actual column labels, and columns A and B can add or subtract data.

Copy 2 columns of data into one column and remove duplicates.