Excel 매크로 - 다른 시트의 행에 쉼표로 구분 된 셀

Question

내 Excel에는 두 장이 있습니다. 첫 번째 시트에 내 엑셀 에서 다음과 같은 데이터를 갖는, 나는 행과 하나의 대표, 각 행에

column 1: a  Column 2: p,q,r,s  Column 3: u,v,w  Column 4: x,y,z 
column 1: b  Column 2: q,r   Column 3: u,v,w  Column 4: z 

---

....... 등 ##

---

이 세포.

나는로 변환하고 싶습니다 :

1. (column 1) a (column 2) p 
2. (column 1) a (column 2) q 
3. (column 1) a (column 2) r 
4. (column 1) a (column 2) s 
5. (column 1) a      (column 3) u 
6. (column 1) a      (column 3) v 
7. (column 1) a      (column 3) w 
8. (column 1) a           (column 4) x 
9. (column 1) a           (column 4) y 
10.(column 1) a           (column 4) z 

Answer 1

아래 코드로 작동

의

Sub test() 
    Dim lastrow, lastcolumn, i, j, k As Long 
    Dim str1, str2 
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    lastcolumn = Cells(1, Columns.Count).End(xlToLeft).Column 
    For i = 1 To lastrow 
     For j = 2 To lastcolumn 
      str1 = Split(Cells(i, j), ",") 
      str2 = UBound(str1) 
      For k = 0 To str2 
       With Sheets("Sheet2") 
        .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Value = Cells(i, 1) 
        .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row + 1).Value = str1(k) 
       End With 
      Next k 
     Next j 
    Next i 
End Sub 

증명을 시도