在Excel VBA中剥离大写单词

Question

在Excel VBA中剥离大写单词

我有一张这样的Excel工作表：

A        B
1        Used CONTENT VERSION SYSTEM for the FALCON Project
2        USA beats UK at Soccer Cup 2008
3        DARPA NET’s biggest contribution was the internet
4        One big problem is STRUCTURED QUERY LANGUAGE queries on non-normalized data

我想提取大写中的所有单词并使用它们生成一个列表：

A                             B
CONTENT VERSION SYSTEM        1
FALCON                        1
USA                           2
UK                            2
DARPA NET                     3
STRUCTURED QUERY LANGUAGE     4

我当时以为我可以检查“ eachWord”是否== UCase（eachWord），但是我不知道该如何处理短语。 我也不知道该如何处理以“撇号”，“结束括号”或标点符号结尾的短语。

我一直在拆分这样的单词： IndividualWordsArray = Split(ActiveSheet.Cells(workingRow, 2).Value)

但这只能构成一个基于空格的数组。 我认为，除空格以外，如果还可以将这些字符分开，则可能会有所帮助：“（）：'，。 ？ ！ ; 经过一些搜索后，我发现我可以用除空格以外的一个字符来分隔一行，但一次只能一个定界符。

任何人都不知道如何用所有大写单词和短语创建列表？

Answer 1

一种简单的方法是获取文本副本，将所有定界符替换为空格字符，然后使用空格作为定界符进行分割。

Answer 2

这是一个丑陋的慢速方法，但是它确实可以工作（除非它不会从NET返回NET）。 我只是遍历单词数组并测试每个字母的上限。 Option Compare Binary语句至关重要。

Option Explicit
Option Compare Binary

Sub x()
    Dim IndividualWordsArray() As String, keeperArray() As String
    Dim i As Integer, j As Integer, k As Integer
    Dim allCaps As Boolean

    IndividualWordsArray = Split(ActiveCell)
    k = 0
    For i = 0 To UBound(IndividualWordsArray)
        allCaps = True
        For j = 1 To Len(IndividualWordsArray(i))
            If Not Mid(IndividualWordsArray(i), j, 1) Like "[A-Z]" Then
                allCaps = False
                Exit For
            End If
        Next j
        If allCaps Then
            ReDim Preserve keeperArray(k)
            keeperArray(k) = IndividualWordsArray(i)
            Debug.Print keeperArray(k)
            k = k + 1
        End If
    Next i
End Sub