Bryan은 알파벳 문자가있는 셀이 많은 워크 시트를 가지고 있습니다. 그는 셀에 나타나는 알파벳 문자 만 제거하는 방법을 찾고 있습니다. 예를 들어 셀에 “ABC123″이 포함 된 경우 Bryan은 “ABC”를 제거하려고합니다.

“123”만 남았습니다. 마찬가지로 “A3B2C1″은 “321”이되어야합니다

“# 45P %”는 “# 45 %”가되어야합니다.

이 문제에 접근하는 유일한 방법은 매크로를 사용하는 것입니다. 단순히 문자를 제자리에서 제거하려면 영향을 줄 셀을 선택한 다음 각 셀을 검사하고 문제가되는 문자를 삭제하는 매크로를 실행하면됩니다. 이를 수행 할 수있는 방법에는 여러 가지가 있습니다. 다음 매크로는 간단한 접근 방식입니다.

Sub CleanText1()

Dim rngCell As Range     Dim intChar As Integer     Dim strCheckString As String     Dim strCheckChar As String     Dim intCheckChar As Integer     Dim strClean As String

For Each rngCell In Selection         strCheckString = rngCell.Value         strClean = ""



For intChar = 1 To Len(strCheckString)

strCheckChar = Mid(strCheckString, intChar, 1)

intCheckChar = Asc(strCheckChar)

Select Case intCheckChar                 Case 65 To 90      'upper case chars                     'Do nothing                 Case 97 To 122     'lower case chars                     'Do nothing                 Case 128 To 151    'special language chars                     'Do nothing                 Case 153 To 154    'special language chars                     'Do nothing                 Case 159 To 165    'special language chars                     'Do nothing                 Case Else                     strClean = strClean & strCheckChar             End Select         Next intChar         rngCell.Value = strClean     Next rngCell End Sub

문자를 제거하는이 방법의 좋은 점은 Select Case 구조에서 확인 된 항목 (및 수행되는 작업)을 수정하여 다른 문자를 쉽게 제거 할 수 있다는 것입니다.

원래 셀을 수정하지 않으려면 “깨끗한”버전의 문자열을 반환하는 사용자 정의 함수를 조합하는 것이 좋습니다. 이것은 이전 매크로를 약간 수정하여 수행 할 수 있습니다.

Function CleanText2(ByVal sRaw As String) As String     Dim intChar As Integer     Dim strCheckString As String     Dim strCheckChar As String     Dim intCheckChar As Integer     Dim strClean As String

Application.Volatile     strClean = ""

For intChar = 1 To Len(sRaw)

strCheckChar = Mid(sRaw, intChar, 1)

intCheckChar = Asc(strCheckChar)

Select Case intCheckChar             Case 65 To 90      'upper case chars                 'Do nothing             Case 97 To 122     'lower case chars                 'Do nothing             Case 128 To 151    'special language chars                 'Do nothing             Case 153 To 154    'special language chars                 'Do nothing             Case 159 To 165    'special language chars                 'Do nothing             Case Else                 strClean = strClean & strCheckChar         End Select     Next intChar     CleanText2 = strClean End Function

함수를 사용하기 위해 다음과 같은 수식을 셀에 넣을 수 있습니다.

=CleanText2(A1)

결과적으로 수식은 A1 셀의 내용을 방해하지 않고 A1 셀에있는 모든 항목의 “깨끗한”버전을 반환합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3219)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전은 다음에서 찾을 수 있습니다.

link : / excelribbon-Getting_Rid_of_Alphabetic_Characters [알파벳 문자 제거].