Курсовая работа: Почта

n2 = Selection.Rows.Count + 2

For i = 4 To n Step 1

Sheets("Отчёты").Select

CurrentCity = Range("A" & i).Value 'перебор городов

Count1 = 0

Count2 = 0

Count3 = 0

Sum1 = 0

Sum2 = 0

Sum3 = 0

Sheets("Отправленная корреспонденция").Select

For j = 4 To n2 Step 1 'перебор отправленной корреспонденции

If Range("D" & j).Value = CurrentCity Then

If Range("C" & j).Value = "посылка" Then

Count1 = Count1 + 1

Sum1 = Sum1 + Range("I" & j).Value

End If

If Range("C" & j).Value = "бандероль" Then

Count2 = Count2 + 1

Sum2 = Sum2 + Range("I" & j).Value

End If

If Range("C" & j).Value = "заказное письмо" Then

Count3 = Count3 + 1

Sum3 = Sum3 + Range("I" & j).Value

End If

End If

Next j

Sheets("Отчёты").Select

Range("B" & i).Value = Count1