'
'A列のを文字列反転してC列へ
'
'C列をキーにして並べ変えたらA列がドメイン順にならぶことに
'
Sub jijiji()
 nEnd = Cells.SpecialCells(xlCellTypeLastCell).Row

 For i = 1 To nEnd
    Cells(i, 1) = Trim(Cells(i, 1))
    Cells(i, 3) = RevStr(Cells(i, 1))
 Next

End Sub



Public Function RevStr(s) As String

  Dim a As String
  Dim i As Long

'** 文字列反転
  For i = Len(s) To 1 Step -1
    a = a & Mid(s, i, 1)
  Next
  RevStr = a

End Function