vba - 如何通过 VBA 或 excel 公式从文本字符串中提取特定的字母和数字

Question

我想从位于 excel 列中的较大字符串中提取文本和数字的组合。

我必须使用的常量是每个文本字符串都会

以 A、C 或 S 开头，以及

将始终为 7 个字符长

我想提取的字符串的位置各不相同。

例如;

COB0012 WP0402 Electronic Payments - SME Consultancy
DCPY708 A850035 WP161 Configuration Manager Core General (Aman Ranjan) A614019 WP0302 SQL 2005 Upgrade Project – WFCopiesChq - Next Stage SUTP016 EPM Training T2

输出

COB0012
A850035
SUTP016

我了解标准的左/右/中/搜索功能，但是我的数据集变化很大，所以我想创建一些可以自动化这个过程的东西。 (1000 行)

我想 UDF 函数可以解决问题，但我对 UDF 的熟悉程度非常基础。

任何帮助将非常感激。

Answer 1

@Gary's Student变体但有一些区别

Public Function Xtractor(r As Range) As String
    Dim a, ary
    ary = Split(r.Text, " ")
    For Each a In ary
        If Len(a) = 7 And a Like "[SAC]*" Then
            Xtractor = a
            Exit Function
        End If
    Next a
End Function

输出