К», 2008. - 256с.
ДОДАТОК
Перевірка_збігів ()
Dim page As Worksheet
Dim col As Object, arr,
Dim outcol As New Collection
arr=Split ( DEGHJKMNP Q )
arr1=Split ( FILO R )
On Error Resume Next i=9 To 57 Step 2
Set col=New Collection
For Each page In Each el In arr
t=page.Range (el amp; i).
If Len (t) Then col.Add t,
If Err Then
outcol.Add page.Name amp; - Raquo; amp; el amp; i amp; - Raquo; amp; t amp; laquo ;. Дивись рядок: amp; i: Err.Clear 'вівідення ПОВІДОМЛЕННЯ
End If
Next el
Next page
Next ii=8 To 56 Step 2
Set col=New Collection
For Each page In Worksheets
For Each el In arr1
t=page.Range (el amp; i) .Value
If t lt; gt; СК And t lt; gt; каф And t lt; gt; КАФ And t lt; gt; ск Then
If Len (t) Then
For Each t In Split (t, /)
col.Add t, CStr (t)
If Err Then outcol.Add page.Name amp; - Raquo; amp; el amp; i amp; - Аудит. amp; t amp; laquo ;. Дивись рядок: amp; i: Err.Clear 'вівідення ПОВІДОМЛЕННЯ
Next t
End If
End If
Next el
Next page
Next iSheets ( збігі ). Cells.Clear Withoutcol.Count gt; 0 Then
i=0
With Sheets ( збігі )
For Each el In outcol
i=i + 1
. Cells (i, A )=el
Next el
End With
End IfSub