Compare similar columns

[YasserKhalil]

Hello everybody
I have many columns .. There are similar columns in values
if column A = column B Then Delete column B
if column A = column C then delete column C
if column A = column D Then Delte Column D
and so on till the end of columns (The columns are unknow they are dynamic)

After that
if column B = column C Then Delete column C
if column B = column D Then Delete column D
and so on till the last column
After that with Column C and D and so on till the last column

Thanks advanced

[PCI]

Is the comparison to be done row by row?

[JBeaucaire]

That sounds straightforward, but may be deceptive in what you really mean by "delete column B". I am assuming you mean clear specific cells?

To alleviate any weirdness at all and allow us to see exactly what you mean, upload a sample workbook with BEFORE and AFTER sample data sets.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[YasserKhalil]

No weirdness No deception..
If all values in Column A for example = All the values in Column B then Column B to be deleted ..
The idea is to compare every column with the other columns and delete the other columns if they are identical to the column

[PCI]

Perhaps try for the active sheet.
Do a safety record before running the macro

Please Login or Register  to view this content.

[YasserKhalil]

Perfect Awesome Solution
Thank you very much for this perfect and swift reply

[YasserKhalil]

I have an attachment that do the same task ...
It's perfect in the attachment but when I tried to copy the code and apply it on my workbook I found all columns deleted and there is an error (Object required)
Here's the code :

Please Login or Register  to view this content.

And Here's the attachment which works well .. try to copy the code and apply it to another workbook I got errors

[YasserKhalil]

I want to detect the error cause?

[PCI]

I'm a bit confused: What about the code sent? Why not to use it?
There is for me a difficulty when using next statement in a loop,

Please Login or Register  to view this content.

index variables (i, j) can be "disturbed", you can loop until column 30 which don't exist anymore.
we have better to loop from LastCol to 1
That is the reason I was using a range "RgDel" with the Union statement to delete in one shot all columns.
In the other hand there is not a comparison of the full column: That was my first question, see item #2

[YasserKhalil]

Mr. PCI
your code is perfect and I'm using it .. thanks a lot for this wonderful code