Как извлечь текст и текстовую строку, связанную с ним в Excel, используя VBA?

Question

Я пытаюсь извлечь конкретную текстовую строку, используя VBA.Код программы должен найти и найти ключевое слово, а затем захватить весь связанный текст / цифры / символы, следующий / до / после этого ключевого слова

Я попробовал программу для поиска определенного ключевого слова, и это сработало.Теперь мне нужно захватить данные, которые находятся перед ключевым словом.Пример: ключевое слово Treble.и абзац в ячейке содержит 03-Treble.Теперь мне нужно извлечь значение 03 вместе с Treble.Лайк 03-Treble

Private Sub CommandButton1_Click()

With Worksheets("Sheet1")

  For Each cel In .Range(.Range("A1"), .Range("A1").End(xlDown))

     If cel.Value Like "*Treble*" Then
         Worksheets("Sheet2").Range("A2").Value = "Treble"

     End If

  Next

End With

End Sub

Answer 1

использование Autofilter() и Replace метод Range объект

Private Sub CommandButton1_Click()

    With Worksheets("Sheet1")

        With .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
            .AutoFilter 1, "*Treble*"
            If CBool(Application.Subtotal(103, .Cells)) Then
                With .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible)
                    .Copy Worksheets("Sheet2").Range("A2")
                    Worksheets("Sheet2").Range("A2").Resize(.Count).Replace what:="Treble*", lookat:=xlPart, Replacement:="Treble"
                End With
            End If
        End With
        .AutoFilterMode = False
    End With

End Sub