ジョージは、他の人から提供されたデータを処理しなければならないことがよくあります。このデータを操作する際に、彼は名前を変換する必要がある場合があります。たとえば、Joe Bloggsのように、姓が最初になるようにします。ジョージは、数式を使用して名前の反転を実行できることを理解していますが、名前が存在するのと同じセルでそれを実行する必要があります。彼は、このタスクを実行する組み込みコマンドがあるかどうか疑問に思います。

いいえ、それを行うための組み込みコマンドはありません。ただし、切り替えを行うマクロを作成することはできます。次に、このマクロをショートカットキーに割り当てたり、ツールバーに配置して、簡単にアクセスできるようにします。切り替えを行う簡単なマクロは次のとおりです。

Sub ReverseNames()

Dim x As Integer     Dim sCell As String     Dim sLast As String     Dim sFirst As String     Dim rCell As Range

For Each rCell In Selection         sCell = rCell.Value         x = InStr(sCell, " ")

If x > 0 Then             sFirst = Left(sCell, x - 1)

sLast = Mid(sCell, x + 1)

rCell.Value = sLast & ", " & sFirst         End If     Next     Set rCell = Nothing End Sub

マクロを使用するには、影響を与えるセルの範囲を選択して実行するだけです。マクロはセル内のスペースを検索し、スペースの前のすべてを名と見なし、スペースの後のすべてを姓と見なします。これらの2つの要素は逆になり、それらの間にコンマが挿入され、セルに詰め込まれます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3812）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkReversing Names InPlace。