Добрый день. помогите переписать макрос в обратную сторону . Нужно что бы удалил все строки и оставил формат Жирный
Код |
---|
Sub DeleteBold () Dim a, rng As Range, x As Range For Each x In ActiveSheet.UsedRange.Rows a = x.Font.Bold If IsNull(a) Or a = True Then If rng Is Nothing Then Set rng = x.EntireRow Else Set rng = Union(rng, x.EntireRow) End If Next If Not rng Is Nothing Then rng.Delete End Sub |