Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление материала до определенного текста
 
#1
23.08.2017 12:11:18
Всем доброго времени суток!
Пытаюсь сделать макрос на обработку крупного прайса. В конце прайса идет ручной инструмент, он мне нужен, как "заставить" эксель найти фразу "ручной инструмент", и удалить все, что было ДО ручного инструмента, сохранив при этом шапку прайса и саму строку "Ручной инструмент"? Прилагаю образец.
Буду очень признателен за помощь!
 
 
 
#2
23.08.2017 12:39:02
Код
Public Sub www()
    Set c = Columns(2).Find("Ручной инструмент", , xlValues, xlPart)
    If Not c Is Nothing Then
        Range([a7], c.Offset(-1)).EntireRow.Delete
    End If
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#3
23.08.2017 12:40:00
Код
Const Mark1 = "Ручной инструмент"
Sub РучнойИнструмент()
Dim rngTmp As Range
    With ThisWorkbook.Worksheets("ПРАЙС")
        Set rngTmp = .Range("B:B").Find(Mark1)
        If Not rngTmp Is Nothing Then
            If rngTmp.Row - 1 > 7 Then .Rows("7:" & rngTmp.Row - 1).Delete Shift:=xlUp
        End If
    End With
End Sub
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#4
23.08.2017 12:42:15
Код
Sub HandTools()
Dim iShp  As Range
Dim iHT As Range
With Worksheets("ПРАЙС")
    Set iShp = .Columns(2).Find("Описание").Offset(1)
        If iShp Is Nothing Then Exit Sub
    Set iHT = .Columns(2).Find("Ручной инструмент").Offset(-1)
        If iShp Is Nothing Then Exit Sub
    .Rows(iShp.Row & ":" & iHT.Row).Delete
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх