Private Sub CommandButton1_Click()
Range("B4:E12").Clear
End Sub

Sub crashmx()
Dim v(10) As String
Dim n(3, 1) As Variant
'
For t = 1 To 11
v(t - 1) = "Ведомость №" & LTrim(Str(t))
Next
 
n(0, 0) = "один"
n(1, 0) = "два"
n(2, 0) = "три"
n(3, 0) = "четыре"
 
j = 1: i = 4
 While Cells(i, 2).Value > ""
    For t = 0 To 3
        If InStr(1, Cells(i, 2).Value, n(t, 0)) > 0 Then n(t, 1) = n(t, 1) + Cells(i, 3).Value
    Next
    If Cells(i + 1, 2).Value = v(j) Or Cells(i + 1, 2).Value = "" Then
        k = j * 3 - 4
        Cells(2, 7 + k).Value = v(j - 1)
        For t = 0 To 3
            Cells(3 + t, 7 + k).Value = n(t, 0)
            Cells(3 + t, 8 + k).Value = n(t, 1)
            n(t, 1) = 0
        Next
        j = j + 1
        If j > 10 Then Exit Sub
    End If
    i = i + 1
Wend
End Sub

Private Sub CommandButton1_Click()
Range("B4:E12").ClearContents
End Sub

Sub crashmx()
Dim n(3, 1) As Variant
v = "Âåäîìîñòü ¹"
n(0, 0) = "îäèí"
n(1, 0) = "äâà"
n(2, 0) = "òðè"
n(3, 0) = "÷åòûðå"
j = 1: i = 4: nv = 2
 While Cells(i, 2).Value > ""
    For t = 0 To 3
        If InStr(1, Cells(i, 2).Value, n(t, 0)) > 0 Then n(t, 1) = n(t, 1) + Cells(i, 3).Value
    Next
    If InStr(Cells(i + 1, 2).Value, v) > 0 Or Cells(i + 1, 2).Value = "" Then
        k = j * 3 - 4
        Cells(2, 7 + k).Value = Cells(nv + 1, 2).Value
        nv = i
        For t = 0 To 3
            Cells(3 + t, 7 + k).Value = n(t, 0)
            Cells(3 + t, 8 + k).Value = n(t, 1)
            n(t, 1) = 0
        Next
        j = j + 1
    End If
    i = i + 1
Wend
End Sub

Sub crashmx()
Dim n(9, 1) As Variant
v = "Сотрудник"
For t = 0 To 9
    n(t, 0) = LTrim(Str(t))
    n(t, 1) = 0
Next
j = 1: i = 4: nv = 5
 While Cells(i, 2).Value > ""
    For t = 0 To 9
        If InStr(1, Cells(i, 3).Value, n(t, 0)) > 0 Then n(t, 1) = n(t, 1) + Cells(i, 5).Value
    Next
    If InStr(Cells(i + 1, 2).Value, v) > 0 Or Cells(i + 1, 2).Value = "" Then
        k = j * 6 - 6
        'Cells(2, 7 + k).Value = Cells(nv + 1, 2).Value
        nv = i
        For t = 0 To 9
            Cells(5 + t, 70 + k).Value = n(t, 0)
            Cells(5 + t, 72 + k).Value = n(t, 1)
            n(t, 1) = 0
        Next
        j = j + 1
    End If
    i = i + 1
Wend
End Sub