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