excel - 从字符串VBA的开头到结尾移动两个字符

Question

我需要在 Excel 中创建一个 VBA 脚本，将订单号从前面的“CD”更改为末尾的“CD”，从而从“CD00001”更改为“00001CD”

任何帮助都会很棒。所有订单号都在 B 列中，从第 5 行开始。请帮忙。

到目前为止我所拥有的:

Private Sub OrderNumber_Click()
Dim Val As String
Dim EndC As Integer

EndC = Worksheets("Raw Data Upload").Range("A1048576").End(xlUp).Row

For i = 5 To EndC
    Val = Right("B" & i, Len("B" & i) - 2) & Left("B" & i, 2)
    Range("B" & i).Value = Val
Next

End Sub

这会用 B5、B6 等替换订单号，但如果我将此函数放入 Excel 本身，它就可以正常工作。

Answer 1

像这样吗？您想要将其放在 B 列中吗？

Option Explicit

Private Sub OrderNumber_Click()

Dim i As Long
Dim val As String
Dim EndC As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Raw Data Upload")
EndC = ws.Range("A1048576").End(xlUp).Row

For i = 5 To EndC

     val = ws.Cells(i, "A")

     Range("B" & i).Value = Mid$(val, 3, Len(val) - 2) & Left$(val, 2)

Next i

End Sub