
답변1
테이블을 선택하고 아래 매크로 코드를 실행하십시오.
Sub NoSpaces()
Dim c As Range
For Each c In Selection.Cells
c = Replace(c, " ", "")
Next
End Sub
모듈에 이 코드를 작성하고 직접 실행 창을 사용하여 실행하세요. 나를 위해 일했습니다.
답변2
"트림" 기능을 사용해야 합니다링크, 왜냐하면 "replace"는 문자열 중간에 있는 모든 공백을 대체하기 때문입니다. 예를 들어 ".L.NP"는 원하는 대로 "L.NP"가 아닌 "LNP"를 제공합니다.