Python全自动实现Excel数据分列

Sub SplitColumn()
    Dim rng As Range, cell As Range
    Dim splitArr() As String
    Dim i As Integer
    ' 指定处理 A 列所有有数据的行
    Set rng = Range("A1", Range("A" & Rows.Count).End(xlUp))
    For Each cell In rng
        ' 按逗号分割
        splitArr = Split(cell.Value, ",")
        ' 写入右侧对应列
        For i = LBound(splitArr) To UBound(splitArr)
            cell.Offset(0, i + 1).Value = Trim(splitArr(i))
        Next i
    Next cell
    ' 自动适配列宽
    Columns("B:" & Chr(64 + UBound(splitArr) + 2)).AutoFit
End Sub

pip install Spire.Xls.Free

from spire.xls import *

# 1. 加载 Excel 文件
workbook = Workbook()
workbook.LoadFromFile("数据.xlsx")

# 2. 获取第一个工作表
sheet = workbook.Worksheets[0]

# 3. 遍历所有有效数据行
for i in range(sheet.LastRow):
    # 读取第 1 列内容
    cell_text = sheet.Range[i + 1, 1].Text
    
    # 按逗号拆分（可改为空格、分号、竖线等）
    split_parts = cell_text.split(',')
    
    # 从第 2 列开始写入拆分后的数据
    for j, value in enumerate(split_parts):
        sheet.Range[i + 1, j + 2].Text = value.strip()

# 4. 保存结果文件
workbook.SaveToFile("数据分列.xlsx", ExcelVersion.Version2016)
workbook.Dispose()

import re
from spire.xls import *

workbook = Workbook()
workbook.LoadFromFile("Data.xlsx")
sheet = workbook.Worksheets[0]

for i in range(sheet.LastRow):
    original_text = sheet.Range[i + 1, 1].Text
    # 按逗号、分号、空格拆分，支持连续分隔符
    parts = re.split(r'[,; ]+', original_text.strip())
    
    # 写入拆分结果
    for j, val in enumerate(parts):
        sheet.Range[i + 1, j + 2].Text = val

sheet.AllocatedRange.AutoFitColumns()
workbook.SaveToFile("MultiSeparatorSplit.xlsx", ExcelVersion.Version2016)
workbook.Dispose()