마지막 단어를 다음 인접 셀로 이동하는 방법은 무엇입니까?

문자열 목록이 있고, 마지막 단어를 다음 인접 셀로 이동하려고 한다고 가정해 봅시다. 아래 스크린샷에서 보이는 것처럼 말입니다. 물론, 하나씩 잘라내고 붙여넣기를 할 수 있지만, Excel에서 한 번에 다음 셀로 이동할 수 있는 빠른 방법이 있을까요?

VBA 코드를 사용하여 마지막 단어를 다음 인접 셀로 이동하기

수식을 사용하여 마지막 단어를 다음 인접 셀로 추출하기

VBA 코드를 사용하여 마지막 단어를 다음 인접 셀로 이동하기

한 셀에서 마지막 단어를 잘라내어 다음 인접 셀로 이동하려면, 다음 VBA 코드를 적용하세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 마지막 단어를 다음 인접 셀로 이동하기:

Sub splitlastword()
    Dim xCell As Range
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
       MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
       Exit Sub
    End If
    For Each xCell In xRg
        xStr = Trim(xCell.Value)
        xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
        xCell.Value = Left(xStr, InStrRev(xStr, " "))
    Next
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 이동할 마지막 단어가 포함된 텍스트 셀을 선택하라는 메시지 상자가 나타납니다. 스크린샷을 참조하세요:

4. 확인 버튼을 클릭하면, 선택한 셀의 마지막 단어가 즉시 다음 인접 오른쪽 셀로 이동됩니다. 스크린샷을 참조하세요:

수식을 사용하여 마지막 단어를 다음 인접 셀로 추출하기

단순히 텍스트 문자열에서 마지막 단어를 추출하고 이동하지 않으려는 경우, 다음 수식이 도움이 될 수 있습니다.

다음 수식을 입력하세요:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) 텍스트 셀 옆의 빈 셀에 입력하고, 채우기 핸들을 아래로 드래그하여 마지막 단어를 추출할 셀까지 적용합니다. 그러면 원본 데이터를 이동하지 않고도 모든 마지막 단어가 추출됩니다. 스크린샷을 참조하세요: