我需要在 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 本身,它就可以正常工作。
最佳答案
像这样吗?您想要将其放在 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
关于excel - 从字符串VBA的开头到结尾移动两个字符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49184233/