Hashtag, добрый день! В вашем коде можно было поменять часть одной строки
У Андрей VG, безусловно красивый код.
У Андрей VG, безусловно красивый код.
Код |
---|
Sub num() Application.ScreenUpdating = False Application.EnableEvents = False Dim lr& lr = Cells(Rows.Count, 2).End(xlUp).Row lr = IIf(lr < 5, 5, lr) Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).ClearContents For i = 5 To lr If InStr("Один", Cells(i, 5)) > 0 Then 'Здесь поменял условие K = K + 1 Cells(i, 1) = K End If Next i Application.EnableEvents = True Application.ScreenUpdating = True End Sub |