Есть 1тыс.+ строк с текстом в котором содержится "#H". Необходимо "#H" заменить на "#H",т.е. это значение залить белым цветом, при этом не захватывая другой текст и главное не удалять "#H". Пробовал через "Ctrl+H", оно весь текст заливает. Можно ли это осуществить через макрос?
Спасибо за внимание. Файл прикрепил.
Добрый день.
Есть 1тыс.+ строк с текстом в котором содержится "#H". Необходимо "#H" заменить на "#H",т.е. это значение залить белым цветом, при этом не захватывая другой текст и главное не удалять "#H". Пробовал через "Ctrl+H", оно весь текст заливает. Можно ли это осуществить через макрос?
Sub qweqwe() For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row q = InStr(1, Cells(r, 1), "#H", vbTextCompare) If q Then Cells(r, 1).Characters(Start:=q, Length:=2).Font.ThemeColor = xlThemeColorDark1 Next r End Sub
[/vba]
Добрый день. [vba]
Код
Sub qweqwe() For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row q = InStr(1, Cells(r, 1), "#H", vbTextCompare) If q Then Cells(r, 1).Characters(Start:=q, Length:=2).Font.ThemeColor = xlThemeColorDark1 Next r End Sub
Так нужно? Перекрашивает в заранее выделенном диапазоне (вдруг не везде нужно?) [vba]
Код
Sub tt() Dim d_ As Range Application.ScreenUpdating = 0 For Each d_ In Selection x_ = InStr(d_, "#H") If x_ Then d_.Characters(Start:=x_, Length:=2).Font.ThemeColor = xlThemeColorDark1 End If Next d_ Application.ScreenUpdating = 1 End Sub
Так нужно? Перекрашивает в заранее выделенном диапазоне (вдруг не везде нужно?) [vba]
Код
Sub tt() Dim d_ As Range Application.ScreenUpdating = 0 For Each d_ In Selection x_ = InStr(d_, "#H") If x_ Then d_.Characters(Start:=x_, Length:=2).Font.ThemeColor = xlThemeColorDark1 End If Next d_ Application.ScreenUpdating = 1 End Sub