ExcelのXNUMXつのセル内でテキストを交換または切り替える方法は？

多くの場合、目的によっては、XNUMXつのセルでテキストを入れ替える必要があります。 たとえば、セルにSmith Johnという名前が含まれている場合、名前をJohn Smithに変更するには、セル内のテキストを交換する必要があります。 この記事では、この問題を解決するためのいくつかの方法を示します。

数式を使用して、XNUMXつのセル内でテキストを入れ替えたり切り替えたりします
VBAコードを使用して、XNUMXつのセル内でテキストを入れ替えたり切り替えたりします
Kutools for Excelにより、XNUMXつのセル内でテキストを簡単に交換または切り替えることができます

数式を使用して、XNUMXつのセル内でテキストを入れ替えたり切り替えたりします

次の数式は、ExcelのXNUMXつのセル内でテキストを入れ替えるのに役立ちます。 次のようにしてください。

1.空白のセルを選択してスワップされたデータを見つけ、数式を数式バーに入力してから、 入力します キー。 スクリーンショットを参照してください：

=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)

2.結果セルを選択し、塗りつぶしハンドルを下にドラッグして、以下のスクリーンショットに示すように残りの結果を取得します。

次に、指定したセルで姓と名が入れ替わっていることがわかります。

Note：このメソッドは、スペースで区切られたXNUMXつのセル内のXNUMXつのテキストのみを交換できます。

VBAコードを使用して、XNUMXつのセル内でテキストを入れ替えたり切り替えたりします

上記の例のように、次のVBAスクリプトを実行して、XNUMXつのセル内でテキストを交換または切り替えることもできます。

1。 プレス 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード：XNUMXつのセル内でテキストを交換または切り替える

Sub res()
    Dim xRg As Range, yRg As Range
    Dim LastRow As Long, i As Long
    Dim strTxt As String, strFs As String
    Dim strLs As String, N As Integer
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    For Each yRg In xRg
        On Error Resume Next
        strTxt = yRg.Value
        Trim (strTxt)
        N = InStr(strTxt, " ")
        strLs = Left(strTxt, N - 1)
        strFs = Right(strTxt, Len(strTxt) - N)
        yRg.Value = strFs & " " & strLs
    Next
End Sub

3。 プレス F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、スワップする必要のあるデータの範囲を選択し、[ OK ボタン。 スクリーンショットを参照してください：

次に、指定した名前のセルのテキストがすぐに交換されるのを確認できます。

Note：このコードは、スペースで正しく区切られているXNUMXつのセル内のXNUMXつの単語を交換することもできます。

Kutools for Excelにより、XNUMXつのセル内でテキストを簡単に交換または切り替えることができます

このセクションでは、この問題を簡単に解決できるように、Kutools forExcelのテキストの逆順ユーティリティをお勧めします。 次のようにしてください。

1.スワップする必要のあるテキストが含まれている範囲を選択し、[ クツール > テキスト > テキストの順序を逆にする。 スクリーンショットを参照してください：

2。 の中に リバーステキスト ダイアログボックスで、テキストを交換する区切り文字を指定します。 セパレータ セクション。 この場合、私は スペース オプション。 そして、 OK

次に、選択したセルのデータが、指定した区切り文字によって同じセルですぐに交換されることを確認できます。

デモ：Kutools for Excelにより、XNUMXつのセル内でテキストを簡単に交換または切り替えることができます

関連記事:

• Excelで日付と日付を交換または逆にする方法は？