Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удалить строки где стоит символ - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки где стоит символ (Макросы/Sub)
Удалить строки где стоит символ
den45444 Дата: Среда, 22.06.2016, 16:05 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Помогите решить с удалением всех строк где стоит символ "^" в столбце B.
К сообщению приложен файл: 8371118.xlsx(11Kb)
 
Ответить
СообщениеПомогите решить с удалением всех строк где стоит символ "^" в столбце B.

Автор - den45444
Дата добавления - 22.06.2016 в 16:05
abtextime Дата: Среда, 22.06.2016, 16:22 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 427
Репутация: 60 ±
Замечаний: 0% ±

Excel 2010
Если разово, то фильтр по Наименование работ, "содержит ^", удаление отфильтрованных строк

Если макросом - понаписано их много, поиск в помощь. Например, http://excelvba.ru/code/ConditionalRowsDeleting
 
Ответить
СообщениеЕсли разово, то фильтр по Наименование работ, "содержит ^", удаление отфильтрованных строк

Если макросом - понаписано их много, поиск в помощь. Например, http://excelvba.ru/code/ConditionalRowsDeleting

Автор - abtextime
Дата добавления - 22.06.2016 в 16:22
sv2014 Дата: Среда, 22.06.2016, 16:40 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
den45444, добрый день, вариант макроса test для повтора скопировать данные с соседнего листа

[vba]
Код
Sub test()
     Dim z, i&: z = Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
  With CreateObject("VBScript.RegExp"): .Pattern = "\^"
    For i = UBound(z) To 1 Step -1
       If .test(z(i, 1)) Then Rows(i + 3 & ":" & i + 3).Delete
    Next
  End With
  End Sub
[/vba]
К сообщению приложен файл: 2709238.xls(40Kb)
 
Ответить
Сообщениеden45444, добрый день, вариант макроса test для повтора скопировать данные с соседнего листа

[vba]
Код
Sub test()
     Dim z, i&: z = Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
  With CreateObject("VBScript.RegExp"): .Pattern = "\^"
    For i = UBound(z) To 1 Step -1
       If .test(z(i, 1)) Then Rows(i + 3 & ":" & i + 3).Delete
    Next
  End With
  End Sub
[/vba]

Автор - sv2014
Дата добавления - 22.06.2016 в 16:40
sv2014 Дата: Среда, 22.06.2016, 17:38 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
den45444, еще вариант макроса

[vba]
Код
Sub test1()
   Dim z, i&: z = Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
For i = UBound(z) To 1 Step -1
    If InStr(1, z(i, 1), "^") Then Rows(i + 3 & ":" & i + 3).Delete
Next
End Sub
[/vba]
 
Ответить
Сообщениеden45444, еще вариант макроса

[vba]
Код
Sub test1()
   Dim z, i&: z = Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
For i = UBound(z) To 1 Step -1
    If InStr(1, z(i, 1), "^") Then Rows(i + 3 & ":" & i + 3).Delete
Next
End Sub
[/vba]

Автор - sv2014
Дата добавления - 22.06.2016 в 17:38
den45444 Дата: Среда, 22.06.2016, 19:21 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
abtextime, sv2014, Благодарю за помощь
 
Ответить
Сообщениеabtextime, sv2014, Благодарю за помощь

Автор - den45444
Дата добавления - 22.06.2016 в 19:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки где стоит символ (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!