인쇄되지 않는 문자를 지능적으로 제거 (Microsoft Excel)
Excel이 아닌 원본에서 생성 된 파일로 작업하는 경우 Excel에서 제대로 표시하는 방법을 모르는 셀의 문자로 끝날 수 있습니다. 예를 들어, 회사의 회계 소프트웨어에서 생성 된 쉼표로 구분 된 텍스트 파일이있을 수 있으며 파일을 Excel로로드합니다. 일부 셀에는 작은 상자가 있음을 알 수 있습니다. 이들은 인쇄되지 않는 문자를 나타냅니다. Excel에서는 표시하거나 인쇄 할 수없는 경우에도 문자가 있음을 알 수 있도록 작은 상자를 표시합니다.
이러한 문자를 제거하려면 Excel의 찾기 및 바꾸기 기능을 사용해보십시오. 다음 단계를 시도하십시오.
-
작은 상자 중 하나가 포함 된 셀 내에서 상자를 강조 표시하고 Ctrl + C를 누릅니다. 그러면 캐릭터가 클립 보드에 복사됩니다.
-
편집 메뉴에서 바꾸기를 선택하거나 Ctrl + H를 누릅니다. Excel은 찾기 및 바꾸기 대화 상자의 바꾸기 탭을 표시합니다. (그림 1 참조)
-
찾을 내용 상자에 삽입 포인터를두고 Ctrl + V를 누릅니다. 클립 보드의 내용 (불쾌감을주는 문자)을 찾을 내용 상자에 붙여 넣습니다. 캐릭터는 1 단계에서 선택하고 복사 한 작은 상자처럼 보이지 않을 가능성이 높습니다.
-
3 단계에서 붙여 넣은 것이 없으면 대화 상자를 닫고 단계를 다시 시도하십시오. 여전히 붙여 넣은 항목이 없으면 찾기 및 바꾸기를 사용하여 인쇄되지 않는 문자를 제거 할 수 없으며 나머지 단계를 건너 뛸 수 있습니다.
-
문자 만 삭제하려면 바꿀 내용 상자에 아무것도 없는지 확인하십시오. 문자를 공백으로 바꾸려면 바꿀 내용 상자에 공백 하나를 넣으십시오.
-
모두 바꾸기를 클릭합니다.
이 방법은 주로 Excel과 1 단계에서 문제가되는 문자를 정확하게 복사 할 수 있는지 여부에 따라 작동 할 수도 있고 작동하지 않을 수도 있습니다. 작동하면 잘못된 문자를 제거하는 유용한 기술을 배웠습니다. 작동하지 않으면 다른 접근 방식을 시도해야합니다.
시도 할 한 가지는 “정리”작업에서 Word를 사용하는 것입니다. Excel에서 Word 문서로 데이터를 복사 (일반 텍스트로 붙여 넣기) 한 다음 문제가되는 문자를 바꿉니다. 그런 다음 데이터를 Excel에 다시 붙여 넣을 수 있습니다. 일부 사람들은 데이터 작업에 대한이 왕복 접근 방식을 사용하여 원하는 결과를 정확히 얻었음을보고합니다.
물론 매크로를 사용하여 문제가되는 문자를 제거 할 수 있습니다.
단순히 인쇄되지 않는 문자를 제거하는 대신 공백으로 바꾸는 자체 버전의 CLEAN 워크 시트 함수를 만드는 것은 그리 어렵지 않습니다. 다음 예제 매크로를 고려하십시오.
Function ReplaceClean1(sText As String, Optional sSubText As String = " ") Dim J As Integer Dim vAddText vAddText = Array(Chr(129), Chr(141), Chr(143), Chr(144), Chr(157)) For J = 1 To 31 sText = Replace(sText, Chr(J), sSubText) Next For J = 0 To UBound(vAddText) sText = Replace(sText, vAddText(J), sSubText) Next ReplaceClean1 = sText End Function
워크 시트 내에서 다음과 같은 방식으로이 함수를 사용합니다.
=ReplaceClean1(B14)
이 경우 B14 셀의 인쇄되지 않는 모든 문자는 공백으로 바뀝니다. 문자를 다른 것으로 바꾸려면 바꿀 텍스트를 제공하십시오. 다음 예제에서는 인쇄되지 않는 문자를 대시로 바꿉니다.
=ReplaceClean1(A1,"-")
다음 사용법은 CLEAN 함수와 마찬가지로 인쇄되지 않는 문자를 제거합니다.
=ReplaceClean1(A1,"")
앞에서 제시 한 ReplaceClean1 매크로를 다시 살펴보면 Replace 기능을 사용하고 있음을 알 수 있습니다. 이 VBA 함수는 다른 버전의 Excel에서 사용되는 모든 버전의 VBA에서 사용할 수 없습니다. 매크로를 시도하고 Replace 함수를 사용하는 행 중 하나에서 오류가 발생하면 대신이 버전의 ReplaceClean 매크로를 사용하십시오.
Function ReplaceClean2(sText As String, Optional sSubText As String = " ") Dim J As Integer Dim vAddText Dim aWF As WorksheetFunction Set aWF = Application.WorksheetFunction vAddText = Array(Chr(129), Chr(141), Chr(143), Chr(144), Chr(157)) For J = 1 To 31 sText = aWF.Substitute(sText, Chr(J), sSubText) Next For J = 0 To UBound(vAddText) sText = aWF.Substitute(sText, vAddText(J), sSubText) Next ReplaceClean2 = sText Set aWF = Nothing End Function
_ 참고 : _
이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.
link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요]
.
_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.
이 팁 (2947)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.
link : / excelribbon-Getting_Rid_of_Non-Printing_Characters_Intelligently [지능적으로 인쇄되지 않는 문자 제거]
.