Find and delete
I Have a range of Numbers
in Col A ( A1 : A1631 ) in Col B ( B1 : B384 ) I want to delete duplicates that appear in Col A from Col B then delete Col B Thus leaving Col A with unique records. Thanks In Advance Karen. |
Find and delete
This is quite slow, but it works:
Sub dupdel() Set rdel = Nothing Set ra = Range("A1:A1631") Set rb = Range("B1:B384") For Each rra In ra v = rra.Value For Each rrb In rb If rrb.Value = v Then If rdel Is Nothing Then Set rdel = rra Else Set rdel = Union(rdel, rra) End If End If Next Next rdel.Delete Shift:=xlUp End Sub -- Gary''s Student - gsnu2007h "Candy" wrote: I Have a range of Numbers in Col A ( A1 : A1631 ) in Col B ( B1 : B384 ) I want to delete duplicates that appear in Col A from Col B then delete Col B Thus leaving Col A with unique records. Thanks In Advance Karen. |
Find and delete
thanks for the reply but what do i do with it
i am not very experienced with excel thanks Karen "Gary''s Student" wrote in message ... This is quite slow, but it works: Sub dupdel() Set rdel = Nothing Set ra = Range("A1:A1631") Set rb = Range("B1:B384") For Each rra In ra v = rra.Value For Each rrb In rb If rrb.Value = v Then If rdel Is Nothing Then Set rdel = rra Else Set rdel = Union(rdel, rra) End If End If Next Next rdel.Delete Shift:=xlUp End Sub -- Gary''s Student - gsnu2007h "Candy" wrote: I Have a range of Numbers in Col A ( A1 : A1631 ) in Col B ( B1 : B384 ) I want to delete duplicates that appear in Col A from Col B then delete Col B Thus leaving Col A with unique records. Thanks In Advance Karen. |
Find and delete
The code is called a macro. Macros are very easy to install and use:
1. ALT-F11 brings up the VBE window 2. ALT-I ALT-M opens a fresh module 3. paste the stuff in and close the VBE window If you save the workbook, the macro will be saved with it. To remove the macro: 1. bring up the VBE window as above 2. clear the code out 3. close the VBE window To use the macro from Excel: 1. ALT-F8 2. Select the macro 3. Touch RUN To learn more about macros in general, see: http://www.mvps.org/dmcritchie/excel/getstarted.htm -- Gary''s Student - gsnu2007h "Candy" wrote: thanks for the reply but what do i do with it i am not very experienced with excel thanks Karen "Gary''s Student" wrote in message ... This is quite slow, but it works: Sub dupdel() Set rdel = Nothing Set ra = Range("A1:A1631") Set rb = Range("B1:B384") For Each rra In ra v = rra.Value For Each rrb In rb If rrb.Value = v Then If rdel Is Nothing Then Set rdel = rra Else Set rdel = Union(rdel, rra) End If End If Next Next rdel.Delete Shift:=xlUp End Sub -- Gary''s Student - gsnu2007h "Candy" wrote: I Have a range of Numbers in Col A ( A1 : A1631 ) in Col B ( B1 : B384 ) I want to delete duplicates that appear in Col A from Col B then delete Col B Thus leaving Col A with unique records. Thanks In Advance Karen. |
Find and delete
This tutorial is quite nice because it has lots of graphics (a picture is
worth 1000 words). http://www.anthony-vba.kefra.com/vba...ur_First_Macro Regards, Ryan--- -- RyGuy "Gary''s Student" wrote: The code is called a macro. Macros are very easy to install and use: 1. ALT-F11 brings up the VBE window 2. ALT-I ALT-M opens a fresh module 3. paste the stuff in and close the VBE window If you save the workbook, the macro will be saved with it. To remove the macro: 1. bring up the VBE window as above 2. clear the code out 3. close the VBE window To use the macro from Excel: 1. ALT-F8 2. Select the macro 3. Touch RUN To learn more about macros in general, see: http://www.mvps.org/dmcritchie/excel/getstarted.htm -- Gary''s Student - gsnu2007h "Candy" wrote: thanks for the reply but what do i do with it i am not very experienced with excel thanks Karen "Gary''s Student" wrote in message ... This is quite slow, but it works: Sub dupdel() Set rdel = Nothing Set ra = Range("A1:A1631") Set rb = Range("B1:B384") For Each rra In ra v = rra.Value For Each rrb In rb If rrb.Value = v Then If rdel Is Nothing Then Set rdel = rra Else Set rdel = Union(rdel, rra) End If End If Next Next rdel.Delete Shift:=xlUp End Sub -- Gary''s Student - gsnu2007h "Candy" wrote: I Have a range of Numbers in Col A ( A1 : A1631 ) in Col B ( B1 : B384 ) I want to delete duplicates that appear in Col A from Col B then delete Col B Thus leaving Col A with unique records. Thanks In Advance Karen. |
All times are GMT +1. The time now is 11:12 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com