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

텍스트를 찾아서 바꾸고 Excel에서 서식을 유지하는 방법은 무엇입니까?

문서 찾기 교체 보존 형식 1
문서 찾기 교체 보존 형식 2
찾기 및 바꾸기 기능은 특정 값을 찾아 다른 값으로 대체해야 할 때 강력하고 유용합니다. 그러나 셀 범위가 있고 일부 셀에 다른 서식 값이 포함 된 경우. 이 경우 찾기 및 바꾸기 기능으로 값을 찾고 바꾸려면 아래 스크린 샷과 같이 셀의 값 서식이 깨집니다. Excel에서 찾아서 바꾸는 동안 각 셀의 값 서식을 어떻게 유지할 수 있습니까?

매크로 코드로 서식 유지 찾기 및 바꾸기

화살표 블루 오른쪽 거품 매크로 코드로 서식 유지 찾기 및 바꾸기

다른 방법은 없지만 매크로 코드를 사용하면 텍스트를 찾아 바꾸고 서식을 유지할 수 있습니다.

1. 프레스 Alt + F11 키를 눌러 응용 프로그램용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈, 아래 코드를 스크립트에 붙여 넣으십시오.

VBA : 서식 유지 찾기 및 바꾸기

Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
  'UpdatebyExtendoffice20160711
    Dim I As Long
    Dim xLenFind As Long
    Dim xLenRep As Long
    Dim K As Long
    Dim xValue As String
    Dim M As Long
    Dim xCell As Range
    xLenFind = Len(FindText)
    xLenRep = Len(ReplaceText)
    If Not MatchCase Then M = 1
    For Each xCell In Rng
        If VarType(xCell) = vbString Then
            xValue = xCell.Value
            K = 0
            For I = 1 To Len(xValue)
              If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
                xCell.Characters(I + K, xLenFind).Insert ReplaceText
                K = K + xLenRep - xLenFind
              End If
            Next
        End If
    Next
End Sub

Sub Test_CharactersReplace()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub

 

문서 찾기 교체 보존 형식 5

3. 프레스 F5 키를 누르면 찾고 바꿀 범위를 선택할 수있는 대화 상자가 나타납니다. 스크린 샷을 참조하십시오.
문서 찾기 교체 보존 형식 6

4. 확인을 클릭하면 선택한 셀의 특정 문자열이 다른 문자열로 바뀌고 서식이 유지됩니다.
문서 찾기 교체 보존 형식 4

: 코드에서  KK 찾고자하는 문자열이고 쿠툴 바꿀 문자열입니다. 필요에 따라 변경할 수 있습니다.


최고의 사무 생산성 도구

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 하단
코멘트 (5)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
길이가 255자가 넘고 아무 것도 변경되지 않는 셀에서 솔루션을 시도했습니다. 이 경우에 대한 해결 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA에서 구문 오류가 발생합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
John Birk와 같은 질문입니다. 255개 이상의 징후가 있는 셀에 대한 해결 방법이 필요합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 방법은 문자가 255자리 미만인 동안에만 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
255자를 초과하는 셀에서 작동하는 솔루션이 있는지 또는 이것이 Excel의 제한 사항인지 명확히 할 수 있습니까? 추가 기능에서 서식이 포함된 255자 이상의 셀을 지원합니까?
아직 코멘트가 없습니다

Follow Us

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