Удаление строк содержащих жирный шрифт

best118 Пользователь Сообщений: 16 Регистрация: 29.04.2013	#1 04.06.2013 15:27:49 Добрый день! Подскажите пожалуйста как в массиве можно удалять полностью строки, если некоторые ячейки в них содержат жирный шрифт? Прикрепленные файлы 1234.xls (69.5 КБ)

Hugo

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

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

04.06.2013 15:34:48

Код

1	`Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete`

DJ Marker MC Пользователь Сообщений: 228 Регистрация: 24.12.2012	#3 04.06.2013 15:39:49 сделайте фильтр по столбцу со значениями и сделайте показать только ПУСТЫЕ ячейки, это то что касается данного файла! и потом удалите строки. Прикрепленные файлы 1234.xlsx (16.9 КБ)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 04.06.2013 19:28:29 Оба предлагаемых варианта дадут желаемый результат, но не отвечают на заданный вопрос про ячейки с жирным текстом ))

best118 Пользователь Сообщений: 16 Регистрация: 29.04.2013	#5 04.06.2013 19:30:06 А есть другой способ кроме фильтра? Наверняка есть простенький макрос который удалит строчки содержащие жирный текст

best118

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

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

04.06.2013 19:32:44

Цитата
Hugo пишет: Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Можно подробней?)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 04.06.2013 19:36:02 best118, это и есть макрос, котрый удалит строки, если во втором столбце пустые ячейки.

ZVI

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

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

04.06.2013 19:51:48

Удаление строк, в которых хоть одна ячейка жирная:

Код

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

best118 Пользователь Сообщений: 16 Регистрация: 29.04.2013	#9 04.06.2013 21:56:43 Огромное спасибо!

ZVI Пользователь Сообщений: 4609 Регистрация: 23.12.2012	#10 05.06.2013 02:54:54 Света, и Вам спасибо за очень позитивные данные в примере - ничего там удалять не хотелось

Xsanders

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

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

#11

26.01.2014 04:44:18

Доброго времени суток!
Скажите, а что можно сделать в таком примере:

Цитата
Брелок — цифровой измеритель давления в шинах Встроенный ЖК-дисплей. 4 различных единицы измерения давления. Питание — 1 элемента типа CR-2025. Размеры: 65х70х35 мм.

Как сделать проверку на жирность текста, и в конце такого "жирного" текста поставить "." (точку), если её там нет?

Изменено: Xsanders - 26.01.2014 23:58:21

Читают тему