복수 세트 열을 단일 열 세트로 이동

단일 인물 데이터에 대해 A-B-C-D-E에있는 데이터 열이있는 스프레드 시트가 있습니다. 그런 다음 두 번째 사람의 데이터에 대해 FGHiJ 열에서 동일한 머리글을 반복합니다. 그런 다음 동일한 머리글이 다음 5 개의 열에서 다시 반복되고 25 개의 열 집합이 계속됩니다 (따라서 25 명의 사람들에 대한 데이터가 있습니다. 건너서). 이 데이터에는 약 50 개의 행이 있습니다.
B-DOB
C 레벨
D-는 Acct #
E-티셔츠 사이즈복수 세트 열을 단일 열 세트로 이동

F-NAME

A-이름 : 다음

데이터 헤더
은 G-DOB
H-Level
I-Acct #
I는 그 정도로 모든 데이터를 이동하고자 515,E-t- 셔츠 25 개 세트

되풀이 크기

은 열 A-B-C-D-E이다. 모든 이름이 열 A에 나타나고 모든 DOB가 B 열에 나타나기를 원합니다.

여기에 게시 된 것과 비슷한 내용을 보았지만 다시 작성하는 방법을 모르겠습니다. 내 특정 상황에 맞는 코드.

나는 3 년 동안이 문제로 어려움을 겪었고 모든 것을 손으로 복사/붙여 넣기에 몇 시간이 걸렸습니다. 이 작업을 자동화하는 방법에 대한 정보는 정말 감사하겠습니다.

감사합니다.

출처

2012-06-26 user1481492

는 당신이 시도한 코드 어디 붙어있는 게시하시기 바랍니다. 이것은 매우 행할 수 있으며 코딩 과정에서 어디서 붙어 있는지 말해 주시면 더 잘 도와 드릴 수 있습니다. –

수동 복사의 매크로를 기록하고 시작하여 붙여 넣기 –

나는 Alistair에 동의합니다. – whytheq

가 바이올린을 켜는 필요하지만 여기 시작이다 :

Sub CopySomeCells() 

    With Excel.ThisWorkbook.Sheets("myExample") 

     lastcellincolumnA = .Cells(.Rows.Count, 1).End(Excel.xlUp).Row 
     lastcellincolumnL = .Cells(.Rows.Count, 12).End(Excel.xlUp).Row 

     .Range("G1:L" & lastcellincolumnL).Copy 
     .Range("A" & (lastcellincolumnA + 1)).PasteSpecial Excel.xlValues 

    End With 

End Sub

출처

2012-06-26 20:11:23 whytheq

복수 세트 열을 단일 열 세트로 이동

답변

관련 문제