Уважаемые гуру форума, подскажите как следует доработать макрос. Ситуация такая: для извлечения уникальных значений давно пользуюсь макросом, найденном на просторах сети:
Код |
---|
Private Sub CommandButton1_Click()
Range("B2:B11").ClearContents
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 Sheets("Приход").Range("A2", Cells(Rows.Count, 1).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 [B2].Resize(li).Value = avArr
End Sub
|
Все работает, но сейчас, для использования отобранных данных в формуле, потребовалась сделать так, чтобы те ячейки в диапазоне
B2:B11, которые оказались не заполнены данными, заполнялись, ну скажем 0 (как в примере). В VBA я только первые шаги пытаюсь делать, так что приспособить макрос к своей задаче я еще могу, а вот с доработкой пока (надеюсь) проблема:oops:. Заранее спасибо всем откликнувшимся.