Excel에서 같은 셀에 있는 숫자와 한자를 어떻게 두 셀에 넣을 수 있나요?

귀하의 예에서는 숫자가 앞에 있고 한자가 뒤에 집중되어 있습니다.

C1=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE) (대체(대체( 대체(대체(대체(A1,"0",""),"1",""),"2",""),"3",""),"4"," "),"5",""),"6",""),"7",""),"8",""),"9","")

B1 =SUBSTITUTE(A1, C1,"")

B1:C1 선택

드롭다운

그림과 같이:

이 방법의 원리는 원래 문자에서 문자열의 숫자를 ""로 바꾸고 나머지는 한자 문자열로 바꾸는 것입니다.

원래 문자열의 한자가 모두 집중되어 있다고 가정하고, 집중된 한자를 ""로 바꾸고 나머지는 숫자열이라고 가정합니다.

다음 VBA 프로그램을 사용하면 숫자와 한자가 섞여 있어도 구분이 가능합니다. B열과 C열의 수식이 지워지지 않도록 실행 결과를 D열과 E열에 넣었습니다.

Sub 숫자와 한자를 구분합니다()

Dim rng As Range , a$, b$, i%

Intersect(UsedRange, Range("A:A"))의 각 rng에 대해

a$ = "'"

b$ = ""

For i% = 1 To Len(rng.Value)

If Mid(rng.Value, i%, 1) Like "[ 0 -9]" Then

a$ = a$ & Mid(rng.Value, i%, 1)

End If

If Asc(Mid ( rng.Value, i%, 1)) < 0 그러면

b$ = b$ & Mid(rng.Value, i%, 1)

End If

다음 i%

rng.Offset(, 3).Value = a$

rng.Offset(, 4).Value = b$

다음

자막 종료