excel - 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