Excel Vba 将多个单元格拆分成列

Question

我的文件有多行（72000+）这样写：

UNIX timestamp;User id;In/Out

这个作业是关于停车场的。我的问题是如何将所有 A 列拆分为其他 3 个列（如 B、C 和 D）。我找到了 split 函数，但我不明白如何循环所有行并将文本拆分到其他列。

Answer 1

假设数据开始于单元格 A1:

Sub Parser()
    Dim cell As Range
    For Each cell In Range("A:A")
        If cell.Value = "" Then Exit Sub
        Range(cell.Offset(0, 1), cell.Offset(0, 3)).Value = Split(cell, ";")
    Next cell
End Sub

Excel Vba 将多个单元格拆分成列

Excel Vba split multiple cells into columns

excel

vba

text-to-column