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

Question

我有一个带有文本字符串和一般日期的报告。我正在尝试抓住这些日期，并将它们放在它们旁边的单元格中。我该怎么办？

示例：

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

Column O
Q4 2019
Q3 2019

Answer 1

假设您的数据从N2单元格开始，并且字符串中只有一个括号，并且所有日期的长度均为7个字符，则可以在O2中使用以下公式来获取所需的内容

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

输出：

Answer 2

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