Сделал так
Код |
---|
Sub Macro10() Dim i&, msg$, dicObj As New Collection Dim cell As Range On Error Resume Next For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row msg = "" For Each cell In Range("n" & i & ":p" & i) msg = msg & cell & "|" Next cell dicObj.Add 0, msg If Err.Number <> 0 Then Range("q" & i) = "n" With Range("q" & i).Font .Name = "Webdings" .Color = 39168 End With Err.Clear End If Next i End Sub |
Результат не изменился