从一列中的单元格中提取子字符串，然后将子字符串粘贴到新列中

Question

我需要一个适用于Mac Excel 2011的Excel VBA代码块。我希望该代码查看A列中的所有单元格，查看该单元格是否包含某个子字符串模式，然后将该子字符串模式粘贴到列中B.例如，假设我有一个单元格A1，上面写着“我的办公室位于HR.205”，我想将子字符串“ HR.205”剪切/粘贴到B1中。这将适用于A列中的任何/所有单元格。因此，如果A146包含字符串“我的办公室位于HR.567”，则我希望将“ HR.567”剪切/粘贴到单元格B146等。

我有一个有效的公式，但我想要一个VBA代码块，因为我要提取的字符串可能与“ HR.206”不同。也许是“我的办公室是TECH.345”。我要提取“ TECH.345”并将其剪切/粘贴到B列。无论如何，这里是有效的公式（只是一个通用的Excel公式）：

=RIGHT(A1,LEN(A1)-FIND("HR",A1))

// Example of what I want the VBA macro code to do
If(cell in column A contains search pattern) then
    cut/paste search pattern to column B // search pattern is "HR..."

Else (cell in column A contains another search pattern) then
    cut/paste new search pattern to column B // search pattern is "TECH..."
End
// Could be a lot of If/Else statements

很抱歉，上面的代码不是真实的代码。我不知道如何编写可以实现我想要的VBA宏代码。 VBA代码（必须在Mac上运行）的预期结果是单元格B1中的HR.206。该代码必须在子字符串模式之后返回可以是任何东西的所有内容。因此，如果它是“我的办公室在HRfirstfloor中”，我希望将“ HRfirstfloor”剪切/粘贴到单元格B1中。非常感谢。这里的每个人都很棒。