копирование слова содержащего нужный символ

[Zeon25]

задача искать ячейки содержащие определенный символ, например "!", и копировать все слово в котором он встречается.
Помогите с макросом
в каждой ячейке может быть несколько слов содержащих символ, копировать надо из столбца А в столбец С.


Пример такой ячейки "паалрр sdhuu!hghhh аарплдп"
Получается что нужен поиск по ячейке и копирование от sdhuu!hghhh

Заранее спасибо

[SAS888]

Можно так:

Sub Main()
    Dim i As Long, j As Integer, a(), b(), c: Application.ScreenUpdating = False
    a = Range([A1], Cells(Rows.Count, 1).End(xlUp)).Value: ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        If a(i, 1) <> "" Then
            c = Split(Application.Trim(a(i, 1)), " ")
            For j = LBound(c) To UBound(c)
                If InStr(c(j), "!") <> 0 Then b(i, 1) = b(i, 1) & " " & c(j)
            Next: b(i, 1) = Trim(b(i, 1))
    End If: Next: [C1].Resize(UBound(b, 1)).Value = b
End Sub

[Zeon25]

SAS888, супер все работает как часы. Спасибо большое.