VBA - 将字符串中的前三个字符复制到另一个单元格中

Question

我很难从单元格中拆分前三个字符并将它们作为单独的字符串插入到另一个单元格中。

我的(示例)输入:

A

A123456
A133457
B123456
B133457
...

我想要什么:

A            B
A123456      A12
A133457      A13
B123456      B12
B133457      B13
...          ...

我尝试过:

Dim ws As Worksheet
Dim cell As Range

Set ws = Worksheets("summary")

For Each cell In ws.Range("A").Cells
    cell.Value = Left(cell.Value, 3)
    Next cell

这不起作用，因为我会覆盖所有我不想覆盖的单元格 A 中的值。有人可以提供帮助吗？

Answer 1

在没有VBA的Excel中，您可以使用公式:=左(A1,3)

使用 VBA，您可以执行以下操作:

For Each cell In ws.Range("A:A").Cells
    cell.Offset(0, 1).Value = Left(cell.Value, 3)
Next cell

请注意，我已经修改了范围。您可能想要进一步限制，因为“A:A”需要一段时间。

偏移函数表示“使用当前单元格右侧的单元格 1”。