Linda에는 영숫자 문자가 포함 된 열이 있습니다. 그녀는 숫자를 유지하고 알파 문자를 삭제해야합니다. 예를 들어 셀에 10003E111이 포함될 수 있으며 10003111로 끝나기를 원합니다.

이 문제에 접근 할 수있는 몇 가지 방법이 있습니다. 그러나 솔루션을 진행하기 전에 실제로 손상되지 않은 것을 변경하려고하지 않는지 확인해야합니다. 예를 들어 숫자에 나타나는 “E”가 숫자 형식의 일부가 아닌지 확인해야합니다. 즉, 지수 지정입니다. 그렇다면 기본 숫자의 특성이 변경되기 때문에 실제로 문자를 제거하고 싶지 않습니다.

문자가 숫자 형식의 일부가 아니라고 판단되면 먼저 수식을 사용하여 알파벳 문자를 제거 할 수 있습니다. 변경하려는 값이 A 열에있는 경우 B 열에 다음 (매우 긴) 수식을 입력 할 수 있습니다.

=MID(A1,MATCH(TRUE,ISERROR(1MID(A1,ROW(INDIRECT ("1:"&LEN(A1))),1)),0),-MATCH(TRUE,ISERROR(1MID (A1,ABS(ROW(INDIRECT("1:"&LEN(A1)))-LEN(A1)-1),1))

,0)+LEN(A1)+2-MATCH(TRUE,ISERROR(1*MID(A1,ROW (INDIRECT("1:"&LEN(A1))),1)),0))

Ctrl + Shift + Enter를 눌러 배열 수식으로 입력해야합니다. 그런 다음 C 열에 다음을 입력하십시오.

=SUBSTITUTE(A1,B1,"")

결과적으로 C 열에는 영문자없이 A 열의 값이 포함됩니다. 선택하여 붙여 넣기를 사용하여 C 열의 정보를 다른 열로 복사하여 수식 결과 대신 실제 값을 얻을 수 있습니다.

이 접근 방식은 단일 통합 문서에서 단기적으로 사용하는 데 적합 할 수 있지만 이러한 종류의 데이터 처리를 더 자주 수행해야하는 경우 처리를 수행하기 위해 사용자 정의 함수를 만드는 것이 좋습니다. 다음은 예입니다.

Function OnlyNums(sWord As String)

Dim sChar As String     Dim x As Integer     Dim sTemp As String

sTemp = ""

For x = 1 To Len(sWord)

sChar = Mid(sWord, x, 1)

If Asc(sChar) >= 48 And _           Asc(sChar) <= 57 Then             sTemp = sTemp & sChar         End If     Next     OnlyNums = Val(sTemp)

End Function

이 함수는 워크 시트 셀 내에서 호출하여 사용합니다.

=OnlyNums(A1)

이 함수는 숫자 값을 반환합니다. 처리를 수행하기 위해 더 짧은 매크로를 작성하려면 다음을 고려하십시오.

Function StripChar(aText As String)

Dim I As Integer

StripChar = ""

For I = 1 To Len(aText)

aChar = Mid(aText, I, 1)

Select Case aChar             Case "0" To "9"

StripChar = StripChar & aChar         End Select     Next End Function

이 함수를 사용하려면 워크 시트에서 다음 중 하나를 사용하십시오.

=STRIPCHAR(A1)

=VALUE(STRIPCHAR(A1))

첫 번째는 숫자로 구성된 텍스트 문자열을 반환하고 두 번째는 해당 문자열의 숫자 버전을 반환합니다.

_ 참고 : _

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

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

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

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

link : / excelribbon-Getting_Rid_of_Everything_Except_Numbers [Getting of Everything Except Numbers].