Добрый день. По-моему, можно добавить в первое условие проверку содержимого ячейки - если там число. И только если там число - тогда проводить суммирование.
Код |
---|
Sub BoldSum()
Dim BoldSum As Double
Dim NoBoldSum As Double
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 5).End(xlUp).Row
BoldSum = 0
NoBoldSum = 0
For i = 5 To iLastRow
If Cells(i, 5).Font.Bold = True And IsNumeric(Cells(I, 5)) = True Then
BoldSum = BoldSum + Cells(i, 5)
Else
NoBoldSum = NoBoldSum + Cells(i, 5)
End If
Next
Cells(i, 6) = BoldSum
Cells(i, 6).NumberFormat = "#,##0.00"
End Sub |
Не очень понятно, зачем в коде ветка Else, если ее результат не используется никак, но не суть.