엑셀 고수분 질문 드립니다.

MID 함수 쓰셔서 일단 셀별로 숫자를 다 쪼갠 담에 0 지우고 필터 걸어서 값있음으로 조건 걸고 분류하면 될거 같은데;

VBScript로 그냥 프로그램 짜는게 더 쉬울지도;;

셀별로 숫자 쪼개져 있습니다. 지금 가로로 쭈욱 데이타가 배열되어 있어서 필터를 걸수도 없고,
이와 같은 값이 열로 36개, 행으로 수만개입니다 :;

1. data가 존재하는 column 선택
2. 데이터 -> 텍스트 나누기 -> 구분 기호로 분리됨 -> 공백에 체크 -> 다음 -> 마침
3. data가 존재하는 column 옆에 다음과 같이 수식 입력
=A1*10+B1*9+C1*8+D1*7+E1*6+F1*5+G1*4+H1*3+I1*2+J1*1 (data가 A열에서 J열까지 있다고 하면)
4. 셀 우측 하단에서 마우스포인터가 십자로 변하면 따닥
5. 끝

사파지만 재밌는 방법이 있어요. 값을 한 셀에 털어넣고, 숫자로 서식을 지정하면 앞의 0들은 다 무시되겠죠. 그 다음 남은 숫자의 자릿수를 세는 수식을 걸면 되겠네요. ㅎㅎ

바벨피쉬님의 프로그램은 제가 이해하기가 좀 어렵습니다. 죄송합니다:;
호레이셔님 방법 참 아이디어가 좋습니다. 막상 써먹고자 하니, 제가 갖고자 하는 값은 0이 아닌 최우측의 값입니다. 좌측의 값을 찾고자 할 때는 정말 좋으신 방법인데, 가만있자 값을 거꾸로 돌리면 되려나요? 응용의 여지가 있네요^^

Sub aaa()
Range("A1").Select
Do
j = 0
For i = 1 To Len(ActiveCell.Value) Step 2
If Mid(ActiveCell.Value, i, 1) = 1 Then
j = (Len(ActiveCell.Value) - i) / 2 + 1
End If
Next i
ActiveCell.Offset(0, 1).Value = j
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = ""
Range("A1").Select
End Sub