output of associated arrays
Sorry.. use ClearContents instead...
-------------------------
Sub RemoveSame()
Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, "A") = Cells(i - 1, "A") Then Cells
(i, "A").ClearContents
Next i
End Sub
-------------------------
Chong Moua
-----Original Message-----
Hi Mike,
You could try below... or use pivot table's auto format
report feature...
------------------------
Sub RemoveSame()
Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, "A") = Cells(i - 1, "A") Then Rows
(i).EntireRow.Delete
Next i
End Sub
------------------------
Hope this helps...
Chong Moua
-----Original Message-----
I have the following arrays
arrName()
arrNumber()
Each item in arrNumber() is associated with a particular
arrName(). I'm
currently using a For...Next loop to output the results
on a spreadsheet, as
follows:
For y = 1 To Size
Cells(y, 4).Value = arrName(Number(y))
Cells(y, 5).Value = arrNumber(Number(y))
Next y
So the output looks like this:
Name1 1
Name1 2
Name1 3
Name2 4
Name2 5
I'm trying to figure out if I can make my output look
something like this:
Name1
1
2
3
Name2
4
5
I've tried using nested loops of various types, but I'm
just not getting it.
This doesn't affect the functionality of the output, but
I'd like to make it
"pretty" (people are impressed with pretty!).
TIA
Mike
--
Michael J. Malinsky
.
.
|