Приложение в

Sub k6()

Dim wdApp As Word.Application

k = 1

For i = 1 To 61049

If IsEmpty(Range("B" & i)) = True Or IsDate(Range("A" & i)) = True Or Range("A" & i) = "Source" Then

i = i + 1

Else

IP = Range("B" & i)

a = Split(IP, ".")

If a(0) = 202 And a(1) = 202 And a(2) = 205 Then

Range("G" & k) = Range("B" & i)

For l = 1 To 61049

If IsEmpty(Range("B" & i)) = True Or IsDate(Range("A" & i)) = True Or Range("A" & i) = "Source" Then

i = i + 1

Else

If Range("G" & k) = Range("B" & l) Then

Range("H" & k) = Range("H" & k) + Range("D" & l)

Range("B" & l).Clear

End If

End If

Next l

k = k + 1

End If

End If

Next i

Sheets.Add After:=Sheets(Sheets.Count)

Sheets("Лист1").Select

Sheets("Лист1").Name = "Компьютеры"

Sheets("_2").Select

Range("G1:H19").Select

Selection.Copy

Sheets("Компьютеры").Select

ActiveSheet.Paste

Set wdApp = CreateObject("Word.Application")

Range("A1:B19").Select

Selection.Copy

wdApp.Visible = True

wdApp.Documents.Add

wdApp.Selection.Paste

Set wdApp = Nothing

End Sub

Приложение г

Sub k8()

j = 1

IP = InputBox("введите IP")

For i = 1 To 61049

If Range("B" & i) = IP Then

Range("G" & j) = Range("A" & i)

Range("H" & j) = Range("H" & j) + Range("D" & i)

j = j + 1

End If

Next i

s = 1

For l = 1 To 61049

If IsEmpty(Range("G" & l)) = True Then

l = l + 1

Else

Range("K" & s) = Range("G" & l)

For y = 1 To 61049

If Range("G" & y) = Range("K" & s) Then

Range("L" & s) = Range("L" & s) + Range("H" & y)

Range("G" & y).Clear

End If

Next y

s = s + 1

End If

Next l

Range("G:G,H:H").Select

Range("H1").Activate

Selection.ClearContents

Range("K:K,L:L").Select

Range("L1").Activate

Selection.Copy

Sheets.Add After:=Sheets(Sheets.Count)

Sheets("Лист1").Select

Sheets("Лист1").Name = "Поиск"

ActiveSheet.Paste

Sheets("_2").Select

Application.CutCopyMode = False

Application.CutCopyMode = False

Selection.ClearContents

Sheets("Поиск").Select

Range("D5").Select

End Sub