如何在Excel中拆分邮编区间并同步生成对应行数据？

方法一：用Power Query（推荐，操作简单） #

• 选中带表头的整个数据区域，点击「数据」选项卡 → 「从表格/区域」，确认勾选「我的表格有标题」
• 进入Power Query编辑器后，选中邮编列，点「转换」→ 「拆分列」→ 「按分隔符」，选「-」拆分，生成「起始邮编」「结束邮编」两列
• 点「添加列」→ 「自定义列」，输入公式 {[起始邮编]..[结束邮编]}，这会生成包含区间所有数字的列表
• 选中刚建的自定义列，点「转换」→ 「展开到新行」，列表里的每个数字就会拆成单独一行，其他列数据自动对应
• 删掉不需要的「起始邮编」「结束邮编」和自定义列，点击「关闭并上载」即可

方法二：公式+辅助列（纯Excel操作，无需插件） #

假设原邮编在A列，其他数据在B及以后列，表头在第1行：

1. C2输入 =LEFT(A2,FIND("-",A2)-1) 提取起始邮编；D2输入 =RIGHT(A2,LEN(A2)-FIND("-",A2)) 提取结束邮编，下拉填充到所有行
2. E2输入 =IF(ROW(A1)<=D2-C2+1,C2+ROW(A1)-1,"")，下拉直到出现空值，生成区间内的所有数字
3. 选中B到E列的所有数据，按E列升序排序（忽略空值），让每个邮编对应原行的其他数据
4. 最后删掉C、D列，整理格式完成

方法三：VBA脚本（大表格批量处理更高效） #

按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub SplitZipRange()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, startZip As Long, endZip As Long, j As Long
    Set ws = ActiveSheet
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    
    '从下往上遍历，避免插入行打乱行数
    For i = lastRow To 2 Step -1
        If InStr(ws.Cells(i, "A").Value, "-") > 0 Then
            startZip = Left(ws.Cells(i, "A").Value, InStr(ws.Cells(i, "A").Value, "-") - 1)
            endZip = Right(ws.Cells(i, "A").Value, Len(ws.Cells(i, "A").Value) - InStr(ws.Cells(i, "A").Value, "-"))
            '插入需要的空行
            ws.Rows(i + 1 & ":" & i + endZip - startZip).Insert
            '填充拆分后的邮编和对应数据
            For j = 0 To endZip - startZip
                ws.Cells(i + j, "A").Value = startZip + j
                ws.Cells(i + j, "B").Resize(1, ws.Cells(i, Columns.Count).End(xlToLeft).Column - 1).Value = ws.Cells(i, "B").Resize(1, ws.Cells(i, Columns.Count).End(xlToLeft).Column - 1).Value
            Next j
        End If
    Next i
End Sub

• 返回Excel，按Alt+F8运行这个宏即可自动完成拆分，注意运行前先备份数据

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