Sub Job_Selection()
Dim c As Range
For Each c In Selection.Columns
Job_Column c
Next
End Sub
Sub Job_Column(r As Range)
If r.Cells.Count > 1 Then
r.Font.Bold = False
Dim y As Long
Dim a As Variant
With r.Parent
y = .Cells(Rows.Count, r.Column).End(xlUp).Row
a = .Range(.Cells(r.Row, r.Column), .Cells(y, r.Column))
End With
Dim i As Long
For y = 1 To UBound(a, 1)
Debug.Print r.Cells(y, 1)
If a(y, 1) = "" Then
With r.Cells(y, 1)
If i > 0 Then
.FormulaR1C1 = "=SUM(R[-1]C:R[-" & i & "]C)"
.Font.Bold = True
i = 0
End If
End With
Else
i = i + 1
End If
Next
If i > 0 Then
With r.Cells(y, 1)
.FormulaR1C1 = "=SUM(R[-1]C:R[-" & i & "]C)"
.Font.Bold = True
i = 0
End With
End If
End If
End Sub
И напрасно! Вместо этого лучше подумайте о том, что ответ на Ваш вопрос может понадобиться будущим посетителям форума, но из-за того, что Вы поленились грамотно сформулировать название своей темы, через короткое время она утонет в море других и никому более не пригодится. Тем самым Вы обесцениваете старания тех, кто Вам помогает. Захотят ли Вам помочь в следующий раз - это вопрос...
P.S. Извиняюсь = сам себя извиняю (сравните со смыслом слова умываюсь)