我很难从单元格中拆分前三个字符并将它们作为单独的字符串插入到另一个单元格中。
我的(示例)输入:
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 中的值。有人可以提供帮助吗?
最佳答案
在没有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”。
关于VBA - 将字符串中的前三个字符复制到另一个单元格中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/35431207/