나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 한스 (handy0)

추천:  2
파일:     예제_정리.xls (18.5KB) 조회:  2851
제목:   자료정리를 VB로 하고 싶어요 ^-^
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):2002
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):xp
3. CPU (486,PentiumI/II/III/IV...):IV
4. RAM (32,64,128,256,512MB,1G...):256

* 아래줄에 질문을 작성하세요 >>
아래와 같이 한 열로만 이루어진 원목록이 있는데요.
각 목록의 레코드(?)는 #?이 첫항목이구요, 사이사이에 공백셀이 일정하지 않게 있어요.
이것을 깔끔하게 정리하고 싶어요.(공백셀은 그냥 엑셀의 원래 기능을 통해서 없앨 수 있겠지만... 다른 것들이 어려워서)

먼저 #이 나오는 셀의 위치를 찾고 이것을 횡으로 정리하는 구문을 끝날 때까지 돌리면
될 것같은데,(틀릴지도 ^-^) 영어문법 모르는 학생이 영작하려는 것처럼 어렵네요.
제가 VB은 초보라서(거의 모든 것이 초보지만 ㅠ.ㅠ;) 잘못하겠네요.

이해가 안 되실지도 몰라서 첨부화일을 올립니다.

먼저 답변을 주시든 안 주시든 관심 가져주신 분 모두 감사드립니다.

원래목록
#1
1
2
3

#2
4
5

#3
7
8
9
#4
10
11
12


#5
13
14
15


#6
16
17
18

정리하고 싶은 형태.
#1 1 2 3
#2 4 5
#3 7 8 9
#4 10 11 12
#5 13 14 15
#6 16 17 18
 		　
[불량 게시물 신고]  
아졸려일단은 공백셀을 없애세요
#1
1
2
#4
3
5
이런식으로
그리고 열이 B열일 경우 그리고 행은 2번부터, 해당 시트에서 작업기준
답은 C열에
i=2:j = 1
do until cells(i, 2) = ""
    if left(cells(i, 2), 1) = "#" then
        j = j + 1: cells(j, 3) = cells(i, 2)
    else
        cells(j, 3) = cells(j, 3) & " " & cells(i, 2)
    end if
    i = i+1
loop

기본적인 로직만 생각나는대로 적었거든요
08-25 (08:01)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-08-24(19:50)
최종수정일 : 2003-08-24(19:50)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ 자료정리를 VB로 하고 싶어요 ^-^ 한스 2003-08-24
자료정리를 'VBA'로 하고 싶어요 (VBA) 졸따구 2003-08-25