팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

텍스트 문자열을 Excel에서 예외가있는 적절한 경우로 변환하는 방법은 무엇입니까?

Excel에서는 적절한 기능을 적용하여 텍스트 문자열을 적절한 대소 문자로 쉽게 변환 할 수 있지만 다음과 같이 텍스트 문자열을 적절한 대소 문자로 변환 할 때 특정 단어를 제외해야 할 수도 있습니다. 이 기사에서는 Excel에서이 작업을 해결하는 몇 가지 빠른 방법에 대해 설명합니다.

수식을 사용하여 예외가있는 텍스트 문자열을 적절한 대 / 소문자로 변환

VBA 코드를 사용하여 텍스트 문자열을 예외가있는 적절한 대 / 소문자로 변환


수식을 사용하여 예외가있는 텍스트 문자열을 적절한 대 / 소문자로 변환


다음 수식이이 작업을 신속하게 처리하는 데 도움이 될 수 있으므로 다음과 같이하십시오.

이 공식을 입력하십시오 :

( ")", "A", "a"), "Is (대문자, 소문자, 대문자, 소문자, 대문자, 소문자) ","is "),"Usa ","USA ")), 2, LEN (A2)) 결과를 가져 오려는 셀에 입력 한 다음 채우기 핸들을 드래그하여이 수식을 채우면 텍스트 문자열이 적절한 대 / 소문자로 변환되지만 특정 예외가 발생합니다 (스크린 샷 참조).

주의 사항: 상기 식에서, A2 변환하려는 셀입니다. "Of", "A", "Is", "Usa" 변환 후 정상적인 적절한 경우 단어, "of", "a", "is", "USA" 적절한 경우에서 제외하려는 단어입니다. SUBSTITUTE 기능을 사용하여 필요에 따라 변경하거나 다른 단어를 추가 할 수 있습니다.


VBA 코드를 사용하여 텍스트 문자열을 예외가있는 적절한 대 / 소문자로 변환

위의 수식을 이해하기가 다소 어렵고 필요에 따라 변경하는 경우 여기에서 VBA 코드를 적용하여이 작업을 마칠 수도 있습니다. 다음 단계를 하나씩 수행하십시오.

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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

VBA 코드 : 텍스트 문자열을 예외가있는 적절한 경우로 변환합니다.

Sub CellsValueChange()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
    If xPRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            If Not IsNumeric(xRgVal) Then
                xRgVal = CorrectCase(xRgVal, xPRg)
                xDRg.Offset(KK).Value = xRgVal
            End If
            KK = KK + 1
        Next
    Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
    Dim xArrWords As Variant
    Dim I As Integer
    Dim xPointer As Integer
    Dim xVal As String
    xPointer = 1
    xVal = xRgVal
    xArrWords = WordsOf(xRgVal)
    For I = 0 To UBound(xArrWords)
        xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
        Debug.Print xPointer
        Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
    Next I
    CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
    Dim xDelimiters As Variant
    Dim xArrRtn As Variant
    xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
    For Each xEachDelimiter In xDelimiters
        xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
    Next xEachDelimiter
    xArrRtn = Split(Trim(xRgVal), " ")
    WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
    With xERg
        If IsError(Application.Match(xArrWord, .Cells, 0)) Then
            CorrectCaseOneWord = Application.Proper(xArrWord)
        Else
            CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
        End If
    End With
End Function

3. 그런 다음 F5 키를 눌러이 코드를 실행하고 변환 할 원본 셀을 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

4. 그런 다음 OK팝업 상자에서 결과를 출력 할 셀을 선택하십시오 (스크린 샷 참조).

5. 클릭 시도 OK, 팝업 대화 상자에서 제외 할 텍스트를 선택하십시오. 스크린 샷을 참조하십시오.

6. 그런 다음 OK 대화 상자를 종료하고 모든 텍스트 문자열이 적절한 대 / 소문자로 변환되었지만 지정된 단어는 제외됩니다. screenshot을 참조하십시오.


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

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

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nathan · 6 months ago
    This would be amazing if only the Macro excluded the part of the sting in CAPS not the entire cell from the exceptions list.