Excel VBA在一个单元格中查找文本字符串并将其粘贴到另一个单元格中

我有一份带有一般日期的文本字符串的报告。我试着抓取这些日期，把它们放在旁边的一个牢房里。我该怎么做

例如：

Column N
blah blah blah (Q4 2019)
blah blah (Q3 2019) - Blah

---

假设您的数据从单元格

N2

开始，并且字符串中只有一个括号，并且所有日期的长度为7个字符，那么您可以在

O2

中使用以下公式来获取所需内容

=MID(N2,FIND("(",N2)+1,7)

输出：

---

这不会提取任何子字符串，就像问题是询问的问题是：“VBA在单元格中查找文本字符串并将其粘贴到另一个单元格中”

Sub Find_Paste( _
        s As String, _
        cell As Range, _
        column_Offset As Long)
    With cell
        If InStr(.Value, s) > 0 Then .Offset(0, column_Offset) = s
    End With
End Sub

=MID(N2,FIND("(",N2)+1,7)