宏从单元格 vba 中取大写字母

如果您尝试说明您如何“尝试创建宏”，那么我们可以更好地将我们的想法与您的想法保持一致，这对您来说是有益的，但是，这可以使用正则表达式或其他各种方法来完成。

下面的方法确实使用 Regular Expressions 来执行这些匹配。

Option Explicit

Public Function CreateShortcut(ByVal StrVal As String) As String

    Dim i As Long,tVal As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[A-Z&]"
        .Global = True
        With .Execute(StrVal)
            For i = 0 To .Count - 1
                tVal = tVal & .Item(i)
            Next i
        End With
    End With
    
    CreateShortcut = tVal

End Function

您可以像使用任何其他工作表函数一样使用上述函数：

=CreateShortcut(B2)

如果您愿意，欢迎您更改函数名称，或者继续使用我在 CreateShortcut() 示例中使用的名称。

^{我完全清楚单元格 B4 中“Enggnering&department”的拼写错误。这就是 OP 在问题中呈现他们的数据的方式，为了一致性我选择保留它}

请务必了解，此代码不提供基本的数据验证，例如防止重复匹配或确保字符串中甚至有大写字母。这是您在项目中需要考虑的事项

RegEx 模式非常基础。

• 方括号 [...] 是字符类方括号。它的工作是一次匹配任何一类字符。在这种情况下，您尝试匹配任何大写字符 A-Z 或与符号 &。
• 我们将 .Global 属性设置为 True 以匹配字符串中每次出现的模式，因此我们可以使用 For i = 遍历它们方法。