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

찾기 및 바꾸기 기능은 특정 값을 찾아 다른 값으로 대체해야 할 때 강력하고 유용합니다. 그러나 셀 범위가 있고 일부 셀에 다른 서식 값이 포함 된 경우. 이 경우 찾기 및 바꾸기 기능으로 값을 찾고 바꾸려면 아래 스크린 샷과 같이 셀의 값 서식이 깨집니다. 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일 환불 보장.