Private Sub aaa()
Dim i As Integer, j As Integer, iL As Integer, jL As Integer
Dim s As Integer
Dim str As String
Dim re, matches
Set re = New RegExp
re.Pattern = "(^|B+)P{1}B+P{2}B+P{1}B+P{1}(B+|$)"
re.Global = True
s = 0
With ThisWorkbook.ActiveSheet
iL = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To iL
b1 = False: b2 = False: b3 = False: b4 = False
jL = .Cells(i, Columns.Count).End(xlToLeft).Column
str = ""
For j = 1 To jL
str = str & .Cells(i, j)
Next j
Set matches = re.Execute(str)
s = s + matches.Count
Next i
End With
MsgBox s
End Sub

Sub aaa()
Dim i As Integer
Dim iLast As Integer
With ThisWorkbook.ActiveSheet
iLast = .Cells(Rows.Count, 10).End(xlUp).Row
For i = 1 To iLast
If .Cells(i, 9) = "Telefax" And .Cells(i, 11) = "" Then
.Cells(i, 11) = .Cells(i, 10)
.Cells(i, 10) = ""
End If
Next i
End With
End Sub

=ЕСЛИ(И(A1="";A2="");0;A1+A2+A4)

=ЕСЛИ(I7=1;СУММ($I$7:I7);ЕСЛИОШИБКА(СУММ($I6:I$7)+1;1) &"-"&СУММ($I$7:I7))

=ЕСЛИ(I7=1;СУММ($I$7:I7);ЕСЛИОШИБКА(J6+1;1) &"-"&СУММ($I$7:I7))

=-ОКРВВЕРХ(D2/I2;ЕСЛИ(D2/I2>0;1;-1))

Int((ActiveCell.Column + 12) * Rnd) + 1

Sub no()
Range(ActiveCell, ActiveCell.Offset(0, 13)) = "no"
ActiveCell.Offset(1, 0).Activate
End Sub
Sub yes()
Range(ActiveCell, ActiveCell.Offset(0, 13)) = "no"
Cells(ActiveCell.Row, Int((ActiveCell.Column + 12) * Rnd) + 1) = "yes"
Cells(ActiveCell.Row, Int((ActiveCell.Column + 12) * Rnd) + 1) = "yes"
ActiveCell.Offset(1, 0).Activate
End Sub