nick7inc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub ASearch(in_r as Range, out_r as Range)
Dim index As Long, found As Boolean
Dim c1 As Variant, c2 As Variant
index = 1
For Each c1 In in_r.Cells
found = False
For Each c2 In out_r.Cells
If IsEmpty(c2) Then Exit For
found = (c2.Value = c1.Value)
If found Then Exit For
Next c2
If Not found Then
out_r.Cells(index, 1).Value = c1.Value
index = index + 1
End If
If IsEmpty(c1) Then Exit For
Next c1
'MsgBox "Done", vbInformation
End Sub
|
Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 15:03 17-07-2007 | Исправлено: nick7inc, 15:07 17-07-2007 |
|
