Developing.ru

Код: Выделить всё

 
Sub test()
Dim a As String
Dim total As Integer
Dim start_summ As Integer
Dim stop_summ As Integer
i = 4
While Sheets("Total").Cells(i, 3).Value <> ""
i = i + 1
Wend
i = i - 1
For j = 4 To i
a = Sheets("Total").Cells(j, 3).Text
If a = "Total" Then
total = j
start_summ = j + 1
j = j + 1
While Sheets("Total").Cells(j, 3).Text <> "Total"
[color=red]If j > i Then[/color]
[color=red]stop_summ = i[/color]
[color=red]exit While[/color]
[color=red]End If[/color]
j = j + 1
Wend
j = j - 1
stop_summ = j
Sheets("Total").Cells(total, 5).Formula = "=SUM(E" & CStr(start_summ) & ":E" & CStr(stop_summ) & ")"
End If
Next j
End Sub

Код: Выделить всё

[color=darkblue]Sub[/color] test()
    [color=darkblue]Dim[/color] sh [color=darkblue]As[/color] Worksheet: [color=darkblue]Set[/color] sh = Sheets("Total")
    [color=darkblue]Dim[/color] cell [color=darkblue]As[/color] Range, ra [color=darkblue]As[/color] Range: Application.ScreenUpdating = [color=darkblue]False[/color]
    [color=darkblue]Set[/color] ra = sh.Range(sh.[c4], sh.Range("c" & Rows.Count).End(xlUp))

    [color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] ra.Cells
        [color=darkblue]If[/color] cell = "Total" [color=darkblue]Then[/color]
            [color=green]' код[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] cell
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Код: Выделить всё

            [color=darkblue]Do[/color] [color=darkblue]While[/color] Sheets("Total").Cells(j, 3).Text <> "Total"
                [color=darkblue]If[/color] j > i [color=darkblue]Then[/color]
                    stop_summ = i
                    [B][color=darkblue]Exit[/color] [color=darkblue]Do[/color][/B]
                [color=darkblue]End[/color] [color=darkblue]If[/color]
                j = j + 1
            [color=darkblue]Loop[/color]
            j = j - 1