Выборка уникальных дат из строк листа "l1" и помещение их в лист "l3", Не получается. На листе "l3" вставляет - VBA

Формулировка задачи:

Запускаю с листа "l1" построчно работает, но мне нужно, чтобы заполнялись столбцы, начиная со столбца с1. Не могу понять, как это сделать.

                    Листинг программы
                
 
                        
                          
                    
Sub FullDate()
Dim vItem, avArr, li As Long
ReDim avArr (1 To Rows.Count, 1 to 1)
With New Collection
On Error Resume Next
For Each vItem In Range("B2", Cells(Rows.Count,2).End(xlUp)).Value
.Add vItem, CStr(vItem)
if Err = 0 Then
li = li + 1: avArr(li, 1)= vItem
else: Err.Clear
End If
Next
End With
 
If li Then Worksheets("l3").[c1].Resize(li).value = avArr
end sub

Решение задачи: «Выборка уникальных дат из строк листа "l1" и помещение их в лист "l3", Не получается. На листе "l3" вставляет»

textual
                            Листинг программы 
                        
 li = li + 1:
 For i = 1 To 5
     avArr(1, (li - 1) * 5 + i) = vItem
 Next

Оцени полезность:

12 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы