Excel VBA - 여러 열의 데이터를 새 행으로 재구성

Question

Excel에서 재구성해야하는 데이터가 있습니다. (A1 셀에 "이름")

데이터는 셀 A1에서 시작하고 나도 "웹 사이트"다음에 다른 열이 : 저는 여기에 필요한 기본적입니다. 나는 누군가가 이것에 대한 완전한 해결책을 제공 할 수 있다면 고맙겠습니다.

감사합니다.

Answer 1

Sub Macro3() 
Dim sh As Worksheet 
Dim i As Integer 
Dim j As Integer 
Dim k As Integer 
Dim m As Integer 
Dim n As Integer 
Set sh = ThisWorkbook.Worksheets("Sheet1") 

sh.Range("a1").End(xlDown).Select 

For m = 2 To Selection.Row 
sh.Range("d" & m & ":" & "i" & m).SpecialCells(xlCellTypeConstants, 2).Copy 
j = sh.Cells(Rows.Count, "g").End(xlUp).Row + 1 
sh.Range("g" & j).PasteSpecial (xlPasteValues), Transpose:=True 
Application.CutCopyMode = False 
sh.Range("a" & m & ":" & "c" & m).Copy 
k = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1 
i = sh.Cells(Rows.Count, "g").End(xlUp).Row 
sh.Range("a" & k & ":" & "c" & i).PasteSpecial (xlPasteValues) 
sh.Range("j" & m & ":" & "l" & m).Copy 
n = sh.Cells(Rows.Count, "d").End(xlUp).Row + 1 
sh.Range("d" & n & ":" & "f" & i).PasteSpecial (xlPasteValues) 
Next m 
End Sub 

내 원시 데이터가 A1 사이에있는 : L1 및 결과 출력 데이터가이 같은 g 컬럼에 사이에있는 ... 이름 성 번호 이메일 전화 웹 사이트의 다른 열