count uniques in same column, post in blank cell, repeat until end
Hi,
Here is another solution:
Sub Macro1()
Dim B as Long, S, E, A
B = [A65536].End(xlUp).Row
S = ActiveCell.Address
Do
Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
E = ActiveCell.Offset(-1, 0).Address
Loop
A = S & ":" & E
Selection = Evaluate("SUM(1/Countif(" & A & "," & A & "))")
S = ActiveCell.Offset(1, 0).Address
Loop Until Range(E).Row = B
End Sub
--
Cheers,
Shane Devenshire
"S Himmelrich" wrote:
A macro that fills the next blank row in same column as represented
below.
Column A
A
A
A
N
N
N
N
[blank cell] result should be "2" - keep going
A
A
J
L
F
F
F
[blank cell] result should be "4"- keep going until you get to the
end of the spreadsheet.
|