|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
1. 엑셀 97
2. win 98
3. P III
4. 512 MB
행렬바꾸기입니다.
상하로 되어있는 데이터들을
좌우의 형태로 데이터들을 가져오는 방법이 궁금합니다.
(데이터가 수 만개이고 크기가 불규칙합니다.)
A B
1 P 2
2 P 3
3 P 4
4 S 2
5 S 4
6 K 2
. . .
. . .
. . .
이런형태로 키필드인 A의 값들이 중복이 있습니다.
이것을
A B C D E .........
1 P 2 3 4
2 S 2 4
3 K 2 . . . . .. . .
4
5
감사합니다. 끝.
02-787-1126
==============[데미안님 글에 대한 답변입니다]==============
아래의 매크로를 이용해 보세요
첨부화일 참조하세요
'//우선 이름순으로 정렬되어 있어야 함
Sub 행열바꾸기()
Dim rngSrc As Range
Dim rngTar As Range
Set rngSrc = ActiveSheet.Range("b7")
Set rngTar = ActiveSheet.Range("f7")
While Not IsEmpty(rngSrc)
rngSrc.Select
If rngSrc Like rngTar Then
rngTar.End(xlToRight).Offset(0, 1) = rngSrc.Offset(0, 1)
'//추가
Else
Set rngTar = rngTar.Offset(1, 0)
rngTar = rngSrc
rngTar.Offset(0, 1) = rngSrc.Offset(0, 1)
End If
Set rngSrc = rngSrc.Offset(1, 0)
Wend
End Sub
건투를...
|
|