Excelで表記によるドメイン名を逆にする方法は？

時々、以下のようなスクリーンショットに示されるように、表記によってドメイン名を逆にする作業に出くわすことがあります。これを迅速に解決するためのコツはありますか？この記事では、それを迅速に処理するための2つの方法を紹介します。

VBAを使用して表記によるドメイン名を逆にする

区切り文字を使用して文字列を逆にする（Reverse Text Order）

VBAを使用して表記によるドメイン名を逆にする

以下のマクロコードが役立つかもしれませんので、Excelで次の手順を行ってください：

1. Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを有効にします。

2. 「挿入」>「モジュール」をクリックし、コードを空白のスクリプトにコピーして貼り付けます。

VBA: 表記によるドメイン名を逆にする

Sub Reverse()
'UpdatebyExtendoffice2017115
    Dim xArr() As String
    Dim xSplitStr As String
    Dim xVal As String
    Dim xRg As Range
    Dim xCell As Range
    Dim xIndex As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xSplitStr = "."
    For Each xCell In xRg
        If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
        xVal = ""
        xArr = Split(xCell.Value, xSplitStr)
        xIndex = UBound(xArr)
        xVal = xArr(xIndex)
        Do
            xIndex = xIndex - 1
            xVal = xVal & xSplitStr & xArr(xIndex)
        Loop While xIndex > 0
        xCell.Value = xVal
xBreak:
    Next
    Application.ScreenUpdating = True
End Sub

3. F5 キーを押すと、範囲を選択するように促すダイアログが表示されます。

4. 「OK」をクリックします。

区切り文字を使用して文字列を逆にする（Reverse Text Order）

Kutools for Excelを持っている場合、Reverse Text Order機能を使用して必要な文字列を逆にすることができます。

Kutools for Excelをインストールした後、次のように操作してください。 （今すぐKutools for Excelを無料ダウンロード！）

1. 使用する文字列を選択し、次をクリックします： Kutools > テキスト > テキストを逆転する.

2. テキストを反転 ダイアログで、テキストを逆にする基準となるオプションを選択します。

3. 「Ok」をクリックすると、テキスト文字列が逆になります。