[땡큐엑셀vba & 엑셀매크로] 하나의 열데이터를 8개의 열로 정리하기

실행전

 

실행후

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280324882
'
'엑셀로하는건지 모르겟지만 데이터 정리하는데 있어서 도움이 필요합니다.
'정리하구 연산같은거 해야되가지구요 ㅠ 정리부터 막히네요..
'파일올리겟습니다.

'파일을 열어보시면 세로로된 많은 데이터들을 왼쪽 목록에 딱딱 맞게 넣고싶은데
'일일이 노다가해서는 답이  없어 보이구요 ㅠ 메크로를 쓰든 함수를 넣든 딱딱 정렬 되게 하고싶습니다.
'도와주십시오.. 꼭 엑셀아니라도 좋으니 좋은 프로그램 있으시면 알려주시면 감사하겠습니다.


' 한개의 열값을 8개의 열로 정리하기
'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 정리하기()

    마지막행 = Cells(Rows.Count, "L").End(xlUp).Row
    몫 = 8 '8개로 나누기 위하여
    j = 1
    
    '마지막까지 루프돌며 붙여넣기
    For i = 1 To 마지막행
        나머지 = i Mod 몫
    
        '나머지가 1이 나올때마다 +1행 증가
        If 나머지 = 1 Then
            j = j + 1
        End If
           
        'A~H열까지 반복하면서 셀복사
        Cells(j, IIf(나머지 = 0, 8, 나머지)) = Cells(i, "L")
        
    Next i


    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

한개의열데이터 여러열로 정리하기-mod_iif-땡큐엑셀vba.xlsm

0.23MB