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中，您可以使用公式：= LEFT（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”。