'------------------------------------------------------------
'任意の長さの文字列のシフト
Sub exercise1()
Dim i As Integer
Dim temp As String
       
Range("C9").Select

temp = ActiveCell.Offset(0, 0)
i = 1
Do While ActiveCell.Offset(0, i) <> ""
  ActiveCell.Offset(0, i - 1) = ActiveCell.Offset(0, i)
  i = i + 1
Loop

ActiveCell.Offset(0, i - 1) = temp

End Sub
'------------------------------------------------------------
'指定された長さの文字列の逆順による並び替え
Sub exercise2()
Dim i As Integer, n As Integer, m As Integer
Dim temp As String

Range("C11").Select
n = 4

' 文字列を逆順にする
n = n - 1
For i = 0 To n \ 2
  temp = ActiveCell.Offset(0, i)
  ActiveCell.Offset(0, i) = ActiveCell.Offset(0, n - i)
  ActiveCell.Offset(0, n - i) = temp
Next i

End Sub
'任意の長さの文字列の逆順による並び替え
'------------------------------------------------------------
Sub exercise3()
Dim i As Integer, n As Integer, m As Integer
Dim temp As String

Range("C14").Select
n = 0

' 文字列の長さを求める
Do While ActiveCell.Offset(0, n) <> ""
 n = n + 1
Loop

' 文字列を逆順にする
n = n - 1
For i = 0 To n \ 2
  temp = ActiveCell.Offset(0, i)
  ActiveCell.Offset(0, i) = ActiveCell.Offset(0, n - i)
  ActiveCell.Offset(0, n - i) = temp
Next i

End Sub