Удалить из ячеек текст, написанный курсивом

Zerat Гость	#1 07.08.2009 21:48:41 Здравствуйте! Помогите, пожалуйста, с макросом. Необходимо из ячеек по всему столбцу удалить текст, написанный курсивом. Файл-исходник здесь: Прикрепленные файлы post_54976.xls (26.5 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

07.08.2009 22:39:03

Или так:

Sub УдалениеКурсива()
Dim cell As Range, ra As Range
On Error Resume Next: Application.ScreenUpdating = False
Set ra = Intersect(ActiveSheet.UsedRange, Range("b:b,d:d"))
For Each cell In ra.Cells
For i = 1 To cell.Characters.Count
With cell.Characters(Start:=i, Length:=1)
If .Font.Italic Then cell = cell.Characters(Start:=1, Length:=i - 1).Text: Exit For
End With
Next
Next cell
End Sub

Пример файла: http://excelvba.ru/XL_Files/Sample__08-08-2009__0-38-29.zip

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest

Гость

07.08.2009 22:41:21

The_Prist, спасибо большое, очень оперативно откликнулись! Все работает.
Только почему я не могу применить автоподбор строк по высоте. Текст действительно удалился, но ощущение такое, что вместо текста с курсивом - текст, написанный белым. Что это может быть?

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#4 07.08.2009 22:52:45 Автоподбор высоты сработает, если предварительно увеличить ширину столбца С Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Zerat Гость	#5 07.08.2009 23:11:58 EducatedFool, и Вам большое спасибо! У Вас то в макросе проблем нет с автоподбором по высоте, я имел ввиду макрос, который написал Prist.

Читают тему