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

Вход

Регистрация

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

 

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

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

Excel 2010
Помогите решить с удалением всех строк где стоит символ "^" в столбце B.
К сообщению приложен файл: 8371118.xlsx (11.5 Kb)
 
Ответить
СообщениеПомогите решить с удалением всех строк где стоит символ "^" в столбце B.
Автор - den45444
Дата добавления - 22.06.2016 в 16:05
abtextime Дата: Среда, 22.06.2016, 16:22 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация: 117 ±
Замечаний: 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 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 (40.0 Kb)
 
Ответить
Сообщение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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 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 из 1
  • 1
Поиск:

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