一括で文字列を組みかえる

Sub Macro0506()
Dim rng As Range
Dim s As String, sl As Integer, p1 As Integer, p2 As Integer
For Each rng In Selection
If rng.Value Like “[A-Z]班 *,*” Then
s = rng.Value
sl = Len(s)
p1 = InStr(s, ” “)
p2 = InStr(s, “,”)
rng.Value = Right(s, sl – p2) & _
Mid(s, p1 + 1, p2 – p1 – 1)
End If
Next rng
End Sub