vba - 在 excel-vba 上使用带有 Cells、Range、Rows.count 和 xlup 的 Split 函数

Question

这段代码会起作用吗？

lr = RD.Cells(Rows.Count, 8).End(xlUp).Row
wArray() = Split(RD.Range(Cells(2, 8), Cells(Rows.Count, 8).End(xlUp).Row))
RD.Cells(2, 8).Value = wArray(0)
RD.Cells(2, 9).Value = wArray(1)

我希望代码遍历范围内的每个单元格并拆分该范围内的数据并将第二个字符串放在它旁边的单元格上。例如，我有一个 A1:A15单元格值为“01/01/2015 09:43 GMT”的单元格范围，在我运行代码后，我预计“01/01/2015”将保持在范围 A1:A15 而“09:43”将移动到单元格范围 B1:B15 .我通过在 Split(RD.Cells) 上定义单个单元格来尝试相同的代码功能，它工作得很好。现在，只要该行有输入，我就需要它继续进行下一行。

Answer 1

您是否要遍历所有行而不是仅 1 行？如果是这样，你可以试试这个。

lr = RD.Cells(Rows.Count, 8).End(xlUp).Row
For i = 2 to lr
    wArray() = Split(RD.Range(Cells(i, 8))
    RD.Cells(i, 8).Value = wArray(0)
    RD.Cells(i, 9).Value = wArray(1)
Next i