提取州缩写后的邮政编码答案

【问题标题】：Extract ZIP code after State abbreviation提取州缩写后的邮政编码
【发布时间】：2015-05-07 13:08:16
【问题描述】：

我有一个 Excel 文件，其中包含多个客户的完整邮寄地址，我需要填写一个仅包含 5 位邮政编码的列，这些邮政编码始终遵循相同的州缩写“TX”。有时会在邮政编码后面添加“电话号码”，有时则不会。

如果有办法选择TX 之后的 5 位数字并将该信息移动到新单元格，直到最后一行，我还没有找到它。我对 VBA 完全陌生，只需要一次工作。示例：

D3 有Namey Name Streety Street TX 75029 432-239-2490
D4有Namity Names Streetick Street TX 73902

我想将75029 分别移动到 F3 和 73902 到 F4。

【问题讨论】：

stackoverflow.com/q/7293461/62576 向您展示了如何提取字符串的一部分。您应该能够轻松修改它以查找 Tx 之后的数字。

标签： string vba excel excel-formula

【解决方案1】：

“一次性工作”VBA 似乎有点矫枉过正，甚至不需要公式。只需将 ColumnD 复制到 ColumnF 中，选择 ColumnF 并使用 Replace...（HOME > Editing, Find & Replace），查找内容：

*TX

（X后面有个空格），

全部替换，然后是查找内容：

*

（*前面有一个空格）

全部替换.

【讨论】：

非常好的答案。我会把这个归档为我自己使用:)。

【解决方案2】：

类似这个excel公式的东西？

=MID(D3,FIND(" TX ",D3)+4,5)

在F3中然后向下拖动

【讨论】：

【解决方案3】：

用您的输入替换 s 并将 zip 放在您想要的位置。

    Dim s As String
    Dim idx As Long
    Dim zip As String

    s = "Namey Name Streety Street TX 75029 432-239-2490"

    idx = InStr(1, UCase(s), " TX ")

    If idx > 0 Then
        zip = Mid(s, idx + 4, 5)
    Else
        zip = "Not found"
    End If

【讨论】：