Note: The other languages of the website are Google-translated. Back to English

Excel에서 대문자 앞에 공백을 삽입하는 방법은 무엇입니까?

다음과 같이 단어 사이의 모든 공백이 실수로 제거 된 텍스트 문자열 목록이 있다고 가정합니다. 데이터 사이에 공백 행 삽입, 이제 단어를 다음과 같이 구분하기 위해 대문자로 각 문자 앞에 공백을 추가하려고합니다. 데이터 사이에 빈 행 삽입. Excel에서 공백을 하나씩 입력하는 대신 대문자 앞에 공백을 빠르게 추가하는 방법은 무엇입니까?


사용자 정의 함수를 사용하여 대문자 앞에 공백 삽입

불행히도 Excel에서 대문자 앞에 공백을 추가하는 직접적인 방법은 없지만 사용자 정의 함수를 만들어이 작업을 해결할 수 있습니다.

1. 공백을 추가하려는 텍스트 문자열이 포함 된 워크 시트를 활성화하십시오.

2. 누르고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창.

3. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 대문자 앞에 공백 삽입

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. 그런 다음이 코드를 저장하고 닫은 다음 워크 시트로 돌아가이 수식을 입력합니다. = addspaces (A1) 데이터 외에 빈 셀에 넣으려면 스크린 샷을 참조하십시오.
doc-add-spaces-before-uppercase-1

5. 그런 다음이 수식을 포함 할 범위 위로 채우기 핸들을 드래그하면 모든 대문자 앞에 공백이 삽입됩니다.
doc-add-spaces-before-uppercase-1

셀의 선행 / 후행 / 추가 공백을 쉽게 제거

Excel 용 Kutools 공백 제거 유틸리티를 사용하면 Excel 사용자가 선택한 셀에서 모든 선행 공백, 후행 공백, 추가 공백 또는 모든 공백을 쉽게 제거 할 수 있습니다.


광고 제거 공간 1

VBA 코드로 대문자 앞에 공백 삽입

다음은 다른 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

VBA 코드 : 대문자 앞에 공백 삽입

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 이 코드를 실행하려면 사용하려는 데이터 범위를 선택할 수있는 프롬프트 상자가 나타납니다.
doc-add-spaces-before-uppercase-1

4. 그런 다음 OK 이 프롬프트 상자를 닫으려면 한 번에 대문자 앞에 공백이 삽입되었습니다. 스크린 샷을 참조하십시오.
doc-add-spaces-before-uppercase-1


Kutools for Excel로 모든 대문자 앞에 공백 삽입

Excel 용 Kutools 텍스트 추가 유틸리티를 사용하면 VBA 매크로를 무시하고 Excel에서 쉽게 대문자 앞에 공백을 삽입 할 수 있습니다.

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 지금 무료 평가판!

1. 대문자 앞에 공백을 삽입 할 범위를 선택하고 쿠툴 > 본문 > 텍스트 추가. 스크린 샷보기 :

2. 텍스트 추가 열기 대화 상자에서 공백을 입력하십시오. 본문 상자에서 옵션에만 추가 선택 첫 번째 문자는 대문자입니다. 인사말 추가 만 드롭 다운 목록.

3. 클릭 Ok 다음 스크린 샷과 같이 모든 대문자 앞에 공백을 삽입하려면 버튼을 누릅니다.
doc 대문자 7 앞에 공백 추가

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 이제 그것을 잡아

노트:이 방법은 첫 글자가 대문자 인 경우 셀 시작 부분에도 공백을 추가합니다. 신청할 수 있습니다 쿠툴 > 본문 > 공백 제거 선택한 셀에서 모든 선행 공백을 제거합니다.


관련 기사 :


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (9)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel에서 도움이 필요합니다. 셀에서 대문자를 찾고 싶습니다. 예: Sagar Paul MBA 16:04 MBA를 강조하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
보시고 판단하시길 바랍니다. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection for Each xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Text If Asc(xChar) > 64 And Asc(xChar) < 91 then xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 귀하의 코드는 훌륭하게 작동합니다. 여러 시트에서 작동하도록 코드 20140723을 조정하는 방법을 알고 있습니까? 전체 통합 문서에서 대문자 사이에 공백을 추가하고 싶습니다. 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

먼저 코드 예제와 설명에 감사드립니다. 그것은 내 경우에 아주 잘 작동합니다.

1개의 문제가 있습니다. 일부 문자열에는 분리되어서는 안 되는 URL과 같은 단어가 포함되어 있습니다.
공백 추가에서 예를 들어 "URL"을 제외하는 방법이 보입니까?

당신이 도울 수 있다면 매우 좋을 것입니다. 이미 잠시 시도했지만 이것을 해결하는 방법을 모르겠습니다 ..


친애하는
루카
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
귀하의 의견과 조언에 감사드립니다. 귀하의 제안을 Kutools 프로젝트 팀에 보냈습니다. 곧 개선할 것이라고 확신합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
해결책을 찾았습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 귀하의 경우에 대한 솔루션을 찾았는지 묻고 싶습니다. 솔루션을 찾으면 저에게 알려주십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 함수는 주어진 솔루션이 다루지 않는 두 가지 문제를 처리합니다.
1. 영어가 아닌 텍스트(분음 부호 포함)
2. 뒤에 공백이 없어야 하는 연속적인 대문자

` 개인 기능 AddSpaces(sText As String)As String
' 연속된 문자가 각각 대문자인 경우를 제외하고 대문자 바로 앞에 공백을 삽입합니다.
' 최종 업데이트: 2022-07-04
'
문자열로 Dim sRet, 정수로 i, 문자열로 sChar, 부울로 bPrevWasUCase

sRet = 왼쪽(sText, 1)
i = 2에서 Len(sText)으로
sChar = Mid(sText, i, 1)
sChar = UCase(sChar)이고 bPrevWasUCase가 아닌 경우
sRet = sRet & " " & sChar
bPrevWasUCase = 참
다른
sRet = sRet 및 sChar
bPrevWasUCase = 거짓
END IF
다음 i

공간 추가 = sRet
종료 기능`
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 친구,

공유해 주셔서 감사합니다. VBA 코드를 시도했지만 작동하지 않습니다. VBA 코드는 영어가 아닌 텍스트를 처리할 수 있습니다. 프랑스어 텍스트를 테스트했으며 대문자 앞에 공백이 성공적으로 삽입되었습니다.

감사합니다.
맨디
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호