一个Excel里用的VBA,循环处理每个单元格,将分号分隔的内容倒过来

只是为了记录一下，下次备用

Sub TreatCell()
Dim i, j, k
Dim Ary
Dim str

For i = 2 To 38147
For j = 2 To 11
If InStr(Worksheets("Sheet3").Cells(i, j).Value, ";") > 0 Then
str = ""
Ary = Split(Worksheets("Sheet3").Cells(i, j).Value, ";")
For k = UBound(Ary) To 0 Step -1
str = str + ";" + Ary(k)
Next
str = Mid(str, 2)
Worksheets("Sheet3").Cells(i, j).Value = str
End If
Next
Next
MsgBox "处理完毕"
End Sub