Compare multiple sets of columns

I have a large amount of data (each column has at least 300 data, more or less, and I have about 3000 columns). Also, for each column (say, column A), I have a corresponding, smaller column (Column B). It looks like this:

Column A (empty column) Column B (empty column) Column C (empty column) Column D

Column A and B go together, and C and D go together, and so forth. Columns A, C, (every odd columns) have the same values as Columns B, D (every even columns) but they are larger in size. So I guess you can say column B is included in column A. What I would like to do is to look for the duplicate values in each pair of the columns and remove the same values. I've tried a macro that I've written myself below:

==========================

Please Login or Register  to view this content.

========================================

but I keep getting mismatch 13 errors and whatnot. Could you guys help me out a little bit? Thank you so much!

Hi, bseo927,

maybe try it like this:

Please Login or Register  to view this content.

Ciao,
Holger

Hi, bseo927,

can´t find any reason for the run time error from the code. Maybe you can attach a workbook with some sample data in order to check the code - I created a sample workbook for testing and the code worked fine there.

Ciao,
Holger

Hi, bseo927,

I´m not sure why Application.Match doesn´t match up on the value but Find should do.

Please Login or Register  to view this content.

Ciao,
Holger

Hi, bseo927,

you could use Application.ScreenUpdating = False at the beginning of the code and Application.ScreenUpdatng = True at the end - as the screen would not refresh the macro speed should increase considerably. If there are forumulas which need to be calculated you could turn calculation to manual as well and back to automatic at the end. And if there are events behind the sheet you could turn them off by Application.EnableEvents = False and back on by passing the argument as True at the end.

Ciao,
Holger