按邮编区域拆分含多邮编前缀的行，求适配的VBA或SQL解决方案

你需要的不是简单按分号拆分每个邮编前缀为单独行，而是将同一区域（前缀字母相同）的邮编前缀合并为一行再拆分，下面分别提供VBA和SQL Server的实现方案：

VBA 实现方案 #

这个版本会先对每个单元格里的邮编前缀按区域分组，再插入对应行数的行并填充分组后的内容：

Sub SplitByPostcodeArea()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim postcodeItems As Variant, areaGroups As Object
    Dim key As Variant, groupStr As String
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上处理，避免插入行影响后续行号
    For i = lastRow To 2 Step -1
        Set areaGroups = CreateObject("Scripting.Dictionary")
        ' 拆分当前单元格的邮编前缀，同时去掉多余空格
        postcodeItems = Split(Replace(ws.Cells(i, "B").Value, " ", ""), ";")
        
        ' 按邮编前缀的字母区域分组
        For j = LBound(postcodeItems) To UBound(postcodeItems)
            If postcodeItems(j) <> "" Then
                ' 提取前缀：从第一个字符开始，直到遇到数字为止
                Dim areaKey As String, k As Integer
                areaKey = ""
                For k = 1 To Len(postcodeItems(j))
                    If IsNumeric(Mid(postcodeItems(j), k, 1)) Then Exit For
                    areaKey = areaKey & Mid(postcodeItems(j), k, 1)
                Next k
                ' 将当前邮编前缀加入对应分组
                If areaGroups.Exists(areaKey) Then
                    areaGroups(areaKey) = areaGroups(areaKey) & "; " & postcodeItems(j)
                Else
                    areaGroups(areaKey) = postcodeItems(j)
                End If
            End If
        Next j
        
        ' 如果分组数大于1，插入对应行数的新行
        If areaGroups.Count > 1 Then
            ' 第一组内容保留在原单元格
            ws.Cells(i, "B").Value = areaGroups(areaGroups.Keys()(0))
            ' 插入剩余分组的行并填充数据
            For j = 1 To areaGroups.Count - 1
                ws.Rows(i + 1).Insert Shift:=xlDown
                ws.Cells(i + 1, "A").Value = ws.Cells(i, "A").Value
                ws.Cells(i + 1, "B").Value = areaGroups(areaGroups.Keys()(j))
            Next j
        End If
    Next i
End Sub

关键说明： #

• 用Scripting.Dictionary实现按邮编区域（前缀字母）的分组逻辑
• 自动识别每个邮编前缀的字母部分（比如AB10提取AB，S5提取S）
• 从下往上遍历行，避免插入新行导致后续行号混乱

SQL Server (SQL Express) 实现方案 #

假设你已经将表格导入SQL Server，表名为PostcodeData，字段为Col1（varchar类型）和Col2（varchar类型），可以用以下SQL语句实现需求：

WITH SplitPostcodes AS (
    -- 第一步：拆分Col2中的每个邮编前缀为单独行
    SELECT 
        Col1,
        LTRIM(RTRIM(value)) AS PostcodePrefix
    FROM PostcodeData
    CROSS APPLY STRING_SPLIT(Col2, ';')
    WHERE LTRIM(RTRIM(value)) <> ''
),
PostcodeAreas AS (
    -- 第二步：提取每个邮编前缀的字母区域
    SELECT 
        Col1,
        PostcodePrefix,
        -- 找到第一个数字的位置，提取前面的字母作为区域键
        SUBSTRING(PostcodePrefix, 1, PATINDEX('%[0-9]%', PostcodePrefix) - 1) AS AreaKey
    FROM SplitPostcodes
),
GroupedAreas AS (
    -- 第三步：按Col1和AreaKey分组，合并同区域的邮编前缀
    SELECT 
        Col1,
        AreaKey,
        STRING_AGG(PostcodePrefix, '; ') WITHIN GROUP (ORDER BY PostcodePrefix) AS GroupedPostcodes
    FROM PostcodeAreas
    GROUP BY Col1, AreaKey
)
-- 输出最终结果
SELECT Col1, GroupedPostcodes AS Col2
FROM GroupedAreas
ORDER BY Col1, AreaKey;

关键说明： #

• STRING_SPLIT用于拆分分号分隔的字符串（SQL Server 2016及以上版本支持）
• PATINDEX定位第一个数字的位置，以此提取邮编的字母区域
• STRING_AGG将同区域的邮编前缀合并为一个字符串（SQL Server 2017及以上版本支持）
• 最终按Col1和区域键排序，完全匹配你想要的输出格式

内容的提问来源于stack exchange，提问作者Liviu-Adrian