如何在Excel或在线工具中将邮编范围批量转为单个数字？

Excel 公式法（适合小批量数据） #

假设你的邮编范围存放在A列（比如A1单元格为300-302），可以用以下公式直接生成逗号分隔的单个邮编：

=TEXTJOIN(", ", TRUE, SEQUENCE(VALUE(RIGHT(A1,LEN(A1)-FIND("-",A1)))-VALUE(LEFT(A1,FIND("-",A1)-1))+1, VALUE(LEFT(A1,FIND("-",A1)-1)), 1))

• 原理：先拆分范围的起始和结束值，再用SEQUENCE生成连续序列，最后用TEXTJOIN合并为字符串。
• 注意：该公式仅支持Excel 365/2021及以上版本，旧版Excel需用VBA替代。

Excel VBA宏（适合大批量数据） #

如果数据量较大，用VBA可以一键批量展开所有邮编范围：

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器。
2. 右键左侧的工作簿名称，选择「插入」→「模块」。
3. 粘贴以下代码：

Sub ExpandZipCodes()
    Dim ws As Worksheet
    Dim lastRow As Long, outputRow As Long
    Dim i As Long, j As Long
    Dim startZip As Long, endZip As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    outputRow = 2 ' 结果从第2行开始（第1行留作表头）
    
    For i = 1 To lastRow
        Dim zipText As String
        zipText = Trim(ws.Cells(i, "A").Value)
        
        If InStr(zipText, "-") > 0 Then
            startZip = Val(Split(zipText, "-")(0))
            endZip = Val(Split(zipText, "-")(1))
            
            For j = startZip To endZip
                ws.Cells(outputRow, "B").Value = j
                outputRow = outputRow + 1
            Next j
        Else
            ' 单个邮编直接复制到结果列
            ws.Cells(outputRow, "B").Value = zipText
            outputRow = outputRow + 1
        End If
    Next i
End Sub

4. 返回Excel界面，按Alt+F8，选择ExpandZipCodes并点击「执行」，所有单个邮编会自动生成在B列。

本地Python脚本（无Excel也能处理） #

如果没有Excel，用Python脚本可以快速处理文本格式的邮编范围：

1. 将所有邮编范围每行一个保存为zip_ranges.txt文件（比如每行是300-302或12345）。
2. 运行以下代码：

with open("zip_ranges.txt", "r", encoding="utf-8") as input_file, open("single_zips.txt", "w", encoding="utf-8") as output_file:
    for line in input_file:
        line = line.strip()
        if not line:
            continue
        if "-" in line:
            try:
                start, end = map(int, line.split("-"))
                for zip_code in range(start, end + 1):
                    output_file.write(f"{zip_code}\n")
            except ValueError:
                # 处理格式错误的行
                output_file.write(f"{line}\n")
        else:
            output_file.write(f"{line}\n")

3. 执行后，single_zips.txt文件会包含所有展开后的单个邮编。

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