![]() |
|
#1
|
|||
|
|||
![]()
If the results are to be in 5 columns: Ref#, SN, Title, Date, Name then change it to
Code:
ReDim result(1 To UBound(data, 1), 1 To 5) … If dic.exists(key) Then count = count + 1 result(count, 1) = dic.Item(key) result(count, 2) = data(i, 1) result(count, 3) = data(i, 3) result(count, 4) = data(i, 4) result(count, 5) = data(i, 5) End If … Worksheets("Sheet3").Range("A2").Resize(count, 5).Value = result |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to Remove the subtotal columns in a sheet | Marcia | Excel | 3 | 12-01-2023 05:48 AM |
![]() |
mbesspiata3 | Excel | 2 | 01-06-2017 05:42 AM |
![]() |
malam | Excel Programming | 1 | 10-17-2014 10:01 PM |
![]() |
Zubairkhan | Excel | 2 | 03-04-2014 10:57 PM |
Removing columns within sheet | shabbaranks | Excel | 2 | 09-11-2012 05:03 AM |