Macro for Row Processing

  • Thread starter Thread starter George
  • Start date Start date
G

George

Can somebody please help this newbie

Each cell in A1:A10 contains an integer in descending order i.e. the highest
in row 1.

The integer in any row may be the same as the one above or below :e.g.:-

a1 = 34
a2 = 34
a3 = 32
a4 = 31
a5 = 31
a6 = 31
a7 = 25
a8 = 20
a9 = 20
a10 = 18

I need a macro that will remove duplicates and pull up the next highest
value to end up with :-

a1=34
a2=32
a3=31
a4=25
a5=20
a6=18

Please note that I do not want to delete rows containing duplicates as I
also need to repeat the whole process on B1:B10 and up to G1:G10 - all of
which contain
other (i.e. different) integers. Consequently, I would like to include that
feature in the macro.


Many thanks

George
 
Hi George, try this:

Sub MakeUniqueList()
'Create a list of unique items from an original data list whose
'first value occupies cell A1

Range("A1").Select

Do Until ActiveCell.Value = ""
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
Selection.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

End Sub
 
Back
Top