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.

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.

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.

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.

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.