여러행의 데이터를 한 행으로 정리하는 방법

함수/공식
작성자
cd****
작성일
2021-12-12 20:19
조회
161
엑셀버전 : M365

운영체제 : 윈도우10

안녕하세요 엑셀 어린이 질문이 있습니다!

 

아래와 같이 원본데이터는 1~3행에 데이터기준이 적혀져 있고 4~6행에 쭉 데이터가 나열되어 있는데 이러한 원본데이터를 9행,10행 처럼 가로로 펼칠 수 있는 방법은 없을까요?? 혼자서 끙끙 앓다가 질문남깁니다!ㅜㅜ

 

전체 3

  • 2021-12-12 22:19

    정규화 화이팅!

    첨부파일 : test.xlsx


  • 2021-12-12 23:16

    아래 그림과 Blue Font 부분을 이용하세요. 첨부 파일 올립니다.

    Sub mySpread()

    Dim rg, rg1 As Range
    Dim i, n, k, rCount, cCount As Long

    Set rg = Range("A1").CurrentRegion
    rCount = rg.Rows.Count
    cCount = rg.Columns.Count
    Set rg1 = Range(Cells(16, 1), Cells(17, (rCount * cCount) / 2))

    k = 0
    For n = 1 To cCount

    For i = 1 To rCount / 2
    rg1(1, i).Offset(0, k).Value = rg(i, n)
    Next

    For i = 1 To rCount / 2
    rg1(2, i).Offset(0, k).Value = rg(i + 3, n)
    Next
    k = k + 3

    Next

    rg1.Select

    With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
    End With
    With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlTop
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
    With Selection
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
    Range("A16:AM16").Select
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -0.349986266670736
    .PatternTintAndShade = 0
    End With
    Range("A1").Select
    End Sub

    첨부파일 : 급여대장-sample_답변.xlsm


  • 2021-12-13 07:49

    엑셀 초보인 듯하여 당장 VBA 사용이 어려울 듯 합니다.  몇가지 기능만으로 문제해결을 제안합니다. 첨부파일 확인하면서 단계별로 수행해 보세요.

    [단계1]

    원본자료가 직원 29명 분이라면 모두 90행이 존재하겠지요?
    자료의 [N]열에 각각 1,2,3을 입력한 후 복사합니다.

    단계2

    자료 전체에 대하여 [N]열을 기준으로 머리글행 없이 오름차순 정렬합니다.
    그러면 자료가 30행씩 구분되겠지요?

    단계3

    [A1], [B1], [C1] 셀에 위에 예시된대로 식을 입력하고,
    [A:C] 열을 복사하여 39열[AM] 까지 복사합니다.
    39인 이유는 (13열*3행=39열) 입니다.

    단계4

    [D:F], [G:I], … 처럼 3열씩 묶어서 식 속에 포함된 'A'를 각각 'B', 'C', 'D', … 'M' 등으로 바꿉니다.

    단계5

    바꿔진 식 [A1:AM1]을 선택하여 30행까지 끌어채우기 합니다.
    이로써 모든 자료의 변환이 끝났으므로 적당히 값 복사하여 이후 원하는 작업을 진행할 수 있습니다.

    문제해결에 도움이 되었으면 합니다

    첨부파일 : 급여대장-sample_해법제안.xlsx


전체 5,121
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (28)
트로피 오빠두엑셀 | 2021.10.12 | 추천 22 | 조회 742
트로피 오빠두엑셀 2021.10.12 22 742
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 27 | 조회 2311
트로피 오빠두엑셀 2021.10.28 27 2311
26015 함수/공식
New 혹시 Crtl + F 찾기 같은 함수와 있나요
태혁 | 11:39 | 추천 0 | 조회 5
태혁 11:39 0 5
26014 차트/그래프
New 해당 스크린샷의 그래프를 어떻게 만드는지 알려주세요
민석 | 11:39 | 추천 0 | 조회 6
민석 11:39 0 6
26005 함수/공식
New 한 숫자값에 대한, 홀수/짝수값을 나열하고 싶습니다. (3)
땅콩구리아빠 | 08:43 | 추천 0 | 조회 21
땅콩구리아빠 08:43 0 21
26000 VBA
New Rng.find 함수로 찾은 값을 DB안에 넣고싶습니다. (1)
가을전어 | 2022.01.16 | 추천 0 | 조회 26
가을전어 2022.01.16 0 26
25994 함수/공식
New 날짜 입력하면 당일 주야간 합구하는 함수나 방법을 배우러 왔습니다. (1)
현주아빠 | 2022.01.16 | 추천 0 | 조회 25
현주아빠 2022.01.16 0 25
25993 VBA
New workday 함수를 vba로.. (1)
Hong | 2022.01.16 | 추천 0 | 조회 21
Hong 2022.01.16 0 21
25989 차트/그래프
New 표 자동 입력 첨부파일 (2) 답변완료
미르 | 2022.01.16 | 추천 0 | 조회 32
미르 2022.01.16 0 32
25983 함수/공식
New 년도에 따른 출장 일수 구하고 싶은데 도움 부탁드립니다. (1)
kjin1020@naver.com | 2022.01.16 | 추천 0 | 조회 24
kjin1020@naver.com 2022.01.16 0 24
25982 함수/공식
New 입력하면 옆 셀에 자동으로 '1'이 입력되는 방법 (1) 답변완료
올리주인 | 2022.01.16 | 추천 0 | 조회 42
올리주인 2022.01.16 0 42
25973 함수/공식
New index match로 불러온 여러 목록의 사진을 다시 취합해서 불러오고 싶습니다. 첨부파일
배고픈콩콩 | 2022.01.16 | 추천 0 | 조회 34
배고픈콩콩 2022.01.16 0 34
25969 VBA
New 검색한 셀의 가로열 전부를 복사하는 방법이 알고 싶습니다. vba
ㅈㄱㄹ | 2022.01.16 | 추천 0 | 조회 24
ㅈㄱㄹ 2022.01.16 0 24
25945 함수/공식
New if 함수 중첩 (3)
shheee | 2022.01.15 | 추천 0 | 조회 48
shheee 2022.01.15 0 48
25938 기능/도구
New 수식이 포함된 시트에서 수식이 입력된 셀을 제외한 셀을 선택하는 방법을 알고자 합니다 (1)
yya**** | 2022.01.15 | 추천 0 | 조회 34
yya**** 2022.01.15 0 34
25932 문서서식
New 안녕하세요...도움을 요청합니다. 첨부파일 (1)
violet**** | 2022.01.15 | 추천 0 | 조회 45
violet**** 2022.01.15 0 45
25919 함수/공식
New 중복일 경우 1개만 카운트 첨부파일 (3) 답변완료
s77**** | 2022.01.14 | 추천 0 | 조회 79
s77**** 2022.01.14 0 79
25918 함수/공식
New 대출 이자율을 구하는 함수가 있을까요? (3)
늦깎이 | 2022.01.14 | 추천 0 | 조회 58
늦깎이 2022.01.14 0 58
25909 문서서식
New 셀값에 보이지 않는 값이 있습니다 이게 뭔지 알려주세요ㅠㅠ 첨부파일 (2) 답변완료
닉으로 | 2022.01.14 | 추천 0 | 조회 58
닉으로 2022.01.14 0 58
25908 함수/공식
New 혹시 매주 월요일마다 자동 작성되게 할 수 있나요? (5)
태혁 | 2022.01.14 | 추천 0 | 조회 81
태혁 2022.01.14 0 81
25905 대시보드
New 데이터 관리 때문에 질문 드립니다. 첨부파일 (4)
콜럼버스 | 2022.01.14 | 추천 0 | 조회 48
콜럼버스 2022.01.14 0 48
25896 함수/공식
수입, 지출누적액 구하는 방법 (6)
칼있으녀 | 2022.01.14 | 추천 0 | 조회 79
칼있으녀 2022.01.14 0 79
25892 VBA
VBA 크롤링 - innerText 의 특정 문자 제외하는 방법 도움요청드립니다. (5) 답변완료
98e | 2022.01.14 | 추천 0 | 조회 49
98e 2022.01.14 0 49
25888 함수/공식
일주일째 골머리 입니다 도움요청드립니다 첨부파일 (5)
k5188 | 2022.01.14 | 추천 0 | 조회 133
k5188 2022.01.14 0 133
25884 함수/공식
참조가 잘안되면 어떤 함수를 써야하나요 (3)
박모씨 | 2022.01.14 | 추천 0 | 조회 59
박모씨 2022.01.14 0 59
25876 피벗테이블
피벗으로 가공한 데이터 정렬 문의 첨부파일 (2) 답변완료
엑셀어린잉 | 2022.01.13 | 추천 0 | 조회 54
엑셀어린잉 2022.01.13 0 54
25875 함수/공식
ROW 함수를 이용한 셀좌표값을 SUMIF 문에 자동으로 입력되게 할수 없을까요? 첨부파일 (5)
속등가설분전반 | 2022.01.13 | 추천 0 | 조회 68
속등가설분전반 2022.01.13 0 68
25873 함수/공식
importhtml 함수 질문드립니다. 첨부파일 (1) 답변완료
감성카드 | 2022.01.13 | 추천 0 | 조회 59
감성카드 2022.01.13 0 59
25872 함수/공식
수식 질문 첨부파일 (6) 답변완료
k5188 | 2022.01.13 | 추천 0 | 조회 65
k5188 2022.01.13 0 65
25870 VBA
VBA로 IE다루는 중 웹페이지 대화상자 닫는 법 (1)
케케케 | 2022.01.13 | 추천 0 | 조회 40
케케케 2022.01.13 0 40
25869 문서서식
항상고맙습니다...어려운 부문이 있어 문의드립니다. 첨부파일
violet**** | 2022.01.13 | 추천 0 | 조회 50
violet**** 2022.01.13 0 50
25868 파워쿼리/피벗
쿼리 새로고침 시 중복데이터 (1)
뿌잉뿌잉 | 2022.01.13 | 추천 0 | 조회 34
뿌잉뿌잉 2022.01.13 0 34