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

막막해서, 시간은 없고 혹시 엑셀 잘쓰시는 분 계시면 도움을 얻고자 씁니다.

 

데이타 값이 쭈욱 있습니다.

 

0 0 0 0 0 0 0 1 0 0

 

상기와 같이 10개 값이 있습니다.

 

여기서 0이 아닌 최초값이 나오는 시점, 위의 데이타에서는 곧 오른쪽 기준으로 3번째가 됩니다.

 

- 여기선 값 3을 소환

 

0 0 0 0 0 0 0 0 0 0

 

위와 같은 경우는, 에러를 표시하거나 값없음 표시

 

0 0 0 0 0 0 0 0 0 1

 

위와 같은 경우는 값 1 소환..

 

이런 식으로 데이타를 정리할 수 없을까요? 이거 데이터 자체도 엄청 크고 한 번에 정리를 해야 하는데, 아 이거 좀 복잡스럽네요 :;

 

 

 

 

    • 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

게시판 2012

번호 제목 글쓴이 조회 날짜
[공지] 게시판 규칙, FAQ, 기타등등 462,403 01-31
[공지] 게시판 관리 원칙. 147,937 12-31
제 트위터 부계입니다. 3 122,148 04-01
130354 새해복 많이 받으세요 10 184 12-31
130353 아바타 3를 보고 유스포 2 190 12-31
130352 [핵바낭] 올해 잉여질 결산 잡담 14 330 12-31
130351 아바타: 불 과 재 보고 왔어요 짤막 소감 6 225 12-31
130350 [영화강추] '척의 일생' 8 247 12-31
130349 흑백요리사 2 8~10회, 싱어게인 4 탑 4 결정 6 284 12-31
130348 Lacombe Lucien(1974) 7 129 12-31
130347 [관리] 25년도 보고 및 신고 관련 정보. 15 323 12-31
130346 Isiah Whitlock Jr. 1954 - 2025 R.I.P. 2 135 12-31
130345 [왓챠바낭] 우편배달부 말고 '포스트맨은 벨을 두번 울린다' 잡담입니다 12 265 12-31
130344 [넷플] 말 많고 탈 많은 '대홍수' 드디어 봤습니다 14 452 12-30
130343 [반말주의] 다들 올해 고생 많았어!! 새해 모두 건강하고 복 터지길 바래!! 12 184 12-30