VBA中创建长数组时如何处理换行？含公司缩写去除场景

针对公司名称中多国注册缩写（Inc、SRL、Ltd等百余种）的移除需求，解决Array函数元素过多不便维护的问题，可采用以下三种实用方案：

方案一：多行字符串拼接+Split函数 #

通过下划线实现多行字符串换行，将缩写按分隔符（如|）分组排列，再用Split转换为数组，既支持换行排版又便于阅读修改。

Sub RemoveCompanySuffixes()
    ' 多行定义待移除的缩写，按地区或类型分组，方便维护
    Dim suffixesStr As String
    suffixesStr = "Inc|Incorporated|Corp|Corporation|" & _
                  "Ltd|Limited|SRL|Sociedad por Responsabilidad Limitada|" & _
                  "GmbH|Gesellschaft mit beschränkter Haftung|" & _
                  "SAS|Société par Actions Simplifiée|" & _
                  "PLC|Public Limited Company"
    
    ' 转换为数组
    Dim suffixesArr As Variant
    suffixesArr = Split(suffixesStr, "|")
    
    ' 示例：处理公司名称
    Dim companyName As String
    companyName = "Tech Global Inc."
    Dim suffix As Variant
    For Each suffix In suffixesArr
        companyName = Replace(companyName, suffix, "", vbTextCompare)
    Next suffix
    Debug.Print Trim(companyName) ' 输出：Tech Global
End Sub

方案二：数组变量分步赋值 #

声明动态数组，通过ReDim Preserve逐步添加元素，适合按国家/地区分组管理不同缩写的场景。

Sub BuildSuffixArrayStepByStep()
    Dim suffixesArr() As String
    Dim index As Integer
    index = 0
    
    ' 北美地区缩写
    ReDim Preserve suffixesArr(index)
    suffixesArr(index) = "Inc": index = index + 1
    suffixesArr(index) = "Corporation": index = index + 1
    suffixesArr(index) = "Corp": index = index + 1
    
    ' 欧洲地区缩写
    suffixesArr(index) = "Ltd": index = index + 1
    suffixesArr(index) = "GmbH": index = index + 1
    suffixesArr(index) = "SAS": index = index + 1
    
    ' 后续移除逻辑同方案一
End Sub

方案三：从工作表读取缩写列表 #

将所有注册缩写存储到Excel工作表的某一列（如Sheet1的A列），通过代码读取为数组，无需修改代码即可更新缩写列表，适合频繁维护的场景。

Sub ReadSuffixesFromWorksheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取A列非空单元格的最后一行
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 读取为二维数组
    Dim suffixesArr As Variant
    suffixesArr = ws.Range("A1:A" & lastRow).Value
    
    ' 转换为一维数组（按需使用）
    Dim oneDArr() As String
    ReDim oneDArr(1 To lastRow)
    Dim i As Integer
    For i = 1 To lastRow
        oneDArr(i) = suffixesArr(i, 1)
    Next i
    
    ' 后续移除逻辑同方案一
End Sub

内容的提问来源于stack exchange，提问作者Alexandre Brandt