Excel VBA代码，用于具有字母数字字符组合的特定输入

实际上，我想删除任意数量的单个数字、数字组合和字母数字组合。我希望excel帮助中的VBA代码用于以下数据。输入为“安卓浏览器hsu601 0 1234”，输出为“安卓浏览器”。请帮忙。提前感谢。

赛义夫，我昨天给你的代码将完全符合你在这个问题中描述的内容

Function strip_non_alpha_words(sentence As String) As String
Dim wrd_to_check As String
Dim wrd As Variant
For Each wrd In Split(sentence, " ")
    wrd_to_check = wrd
    If wrd_to_check = alpha_only(wrd_to_check) Then
        strip_non_alpha_words = strip_non_alpha_words & wrd_to_check & " "
    End If
Next
strip_non_alpha_words = Trim(strip_non_alpha_words)
End Function

Function alpha_only(mixedStr As String) As String
Dim ltr As Long, ascii_code As Long
For ltr = 1 To Len(mixedStr)
    ascii_code = Asc(UCase(Mid(mixedStr, ltr, 1)))
    If (ascii_code > 64 And ascii_code <= 90) Or (ascii_code >= 40 And ascii_code <= 41) Then
        alpha_only = alpha_only & Mid(mixedStr, ltr, 1)
    End If
Next
End Function

---

将其与

TRIM

和multiple

SUBSTITUTE

公式结合使用可能会有所帮助，但如果您有

Application v1.3.B

之类的内容，您仍然会遇到问题，因为

B

仍然会出现

可能有不止一种方法可以做到这一点。您需要提供更多/更好的数据来找到模式。由于只有一个源数据集，我认为没有机会找到任何解决方案。请阅读我实际上想删除任何出现的单个数字、数字组合和字母数字组合。请帮忙，你能做这个吗？计算机如何区分您想保留和不想保留的数据？我认为这是错误的做法。你必须考虑另一种策略。请记住StackOverflow不是免费的代码编写服务。您需要显示您已经拥有的代码。=TRIM（SUBSTITUTE（SUBSTITUTE）（SUBSTITUTE（SUBSTITUTE（F:F，，，，，，，，，，/，，，，，，，，-，，，）是我用来简化数据的代码。由于我是Excel新手，我询问了进一步的代码。ThanksCLR“wrd”变量出现编译错误，表示未定义变量。在我将wrd声明为字符串之后，再次出现编译错误，声明每个控制变量必须是Variant或Object。如何更正此错误？将其声明为变量而不是字符串？谢谢。我想最后一次麻烦你。请修改代码，对于输入Opera（未知版本），生成的输出是Opera，其中我希望输出为Opera（未知版本）。提前谢谢凯，我会修改答案的。我只是添加了

（

和

）

作为可接受的字符。

=strip_non_alpha_words(A1)