Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
output of associated arrays
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
output of associated arrays
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 . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
output of associated arrays
Michael,
Have you tried checking for a change in the name value before writing it out to the sheet. Dim TempName as string 'Local variable For y = 1 To Size if TempName < arrName(Number(y)) then 'Test to see if we have hit a new name Cells(y, 4).Value = arrName(Number(y)) 'If this is a new name write it to the sheet TempName = arrName(Number(y)) 'Now reload the tempname variable for the next leg end if Cells(y, 5).Value = arrNumber(Number(y)) Next y "Michael J. Malinsky" wrote in 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need help for getting output | Excel Discussion (Misc queries) | |||
What 'value' is a Dec2Bin output? | Excel Discussion (Misc queries) | |||
Need Help on formal - output a sum | Excel Worksheet Functions | |||
Please help with report output! | Excel Worksheet Functions | |||
VBA - Function Output | Excel Discussion (Misc queries) |