excel vba를 사용하여 공간 왼쪽에 텍스트를 삭제하십시오.

Question

Excel 목록을 삭제할 매크로를 작성하고 있습니다. 이름 목록을 가져 와서 이름을 삭제해야하므로 "John Smith"는 "Smith"가됩니다. 공백 다음에 텍스트를 삭제하는 방법을 알고 있지만 공백이 더 까다로워지기 전에. RIGHT("John Smith",LEN("John Smith")-FIND(" ","John Smith"))

Answer 1

Answer 2

사용은 여기에 "rng_Names"라고 명명 된 범위의 모든 셀을 통해 루프와 마지막 단어를 제외하고 모두 제거하는 서브입니다. 뿐만 아니라,

Sub removeFirstWord() 
    For Each cl In Range("rng_Names") 
     cl.Value = Right(cl.Value, Len(cl.Value) - InStr(cl.Value, " ")) 
    Next cl 
End Sub 

업데이트 다음 하위 단지 첫 번째 단어를 제거하는 두 번째

:

Sub removeAllButLastWord() 
    For Each cl In Range("rng_Names") 
     cl.Value = Right(cl.Value, Len(cl.Value) - InStrRev(cl.Value, " ")) 
    Next cl 
End Sub 

업데이트

다음 하위 그냥 첫 번째 단어를 제거 문자열 "jr"이 존재하는 경우

Sub removeFirstWordAndJR() 
    For Each cl In Range("rng_Names") 
     cl.Value = Replace(Right(cl.Value, Len(cl.Value) - InStr(cl.Value, " ")), " Jr", "", 1, -1, vbTextCompare) 
    Next cl 
End Sub