Sub 逆にする()

Sub 逆にする()

Dim myStr As String
Dim strmy As String
Dim i As Integer

For s = 1 To 500

myStr = ""

If Range("G" & s).Value = "" Then Exit Sub

i = Len(Range("G" & s).Value) + 1
While i > 1
i = i - 1
strmy = Mid(Range("G" & s).Value, i, 1)
Select Case StrConv(strmy, vbWide)
Case "゛", "゜"
i = i - 1
strmy = Mid(Range("G" & s).Value, i, 2)
End Select
myStr = myStr & strmy
Wend

Range("H" & s).Value = myStr

Next

End Sub