单元格内几个数相剩改变数的位置如何处理

更新时间：2021-03-22 13:02:29 98次访问

如图所示，在单元格中有三个相剩数以*做为连接，现在要求把单元格内的三个数以大小位置来变换位置，有知道如何批量修改吗？一个个修改太麻烦了，在线等，谢谢

给你一个VBA代码来实现，如下：

Sub test()
Dim x, y
Dim str As String
Dim ar, br(1 To 10000, 1 To 1)
ar = Range("c2:c" & Range("c30000").End(3).Row)
For x = 1 To UBound(ar)
   y = y + 1
   stra = Split(ar(x, 1), "*")
   For i = UBound(stra) To 0 Step -1
      str = str & "*" & stra(i)
   Next i
   br(y, 1) = Right(str, Len(str) - 1)
   str = ""
Next x
Range("e2").Resize(y, 1) = br
End Sub