Question

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

UNIX timestamp;User id;In/Out

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

Answer 1

如果必须使用VBA，请尝试这样一个相当简单的代码。请注意，如果您一次执行此任务，则不需要任何代码！

Dim rng As Range

Option Explicit

Sub Test()

With ActiveWorkbook.Sheets(1)
    Set rng = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    rng.TextToColumns Destination:=.Range("B1"), DataType:=xlDelimited, semicolon:=True
End With

End Sub

Answer 2

假设数据从单元格 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将多个单元格拆分为列

2 个答案: