첫 번째 셀에 쉼표가 포함되어있는 경우 행을 복사하는 방법은 무엇입니까?

Question

일부 첫 번째 셀에 쉼표가 포함 된 테이블이 있습니다. 첫 번째 셀에 다른 행의 쉼표가 들어 있으면 모든 행을 어떻게 복사 할 수 있습니까?

또한 첫 번째 셀 값을 새 행으로 구분해야합니다.

내 소스 테이블은 다음과 같습니다

내 대상 테이블은 다음과 같습니다

Answer 1

는 각 라인을 통해 루프하고있는 각 값을 통해 루프 매크로가 필요합니다 첫 번째 열. 이 기본 예제 매크로를 사용하려면 테이블의 셀 중 하나를 선택한 다음 데이터를 분할하는 새 워크 시트를 만듭니다.

Public Sub Expand() 

Dim ra As Range 
Dim str As Variant 
Dim ws As Worksheet 
Dim i As Integer 
Dim j As Integer 

Set ra = Selection.CurrentRegion 
Set ws = Worksheets.Add 
j = 1 

For i = 1 To ra.Rows.Count 
    For Each str In Split(ra(i, 1), ",") 
     ws.Cells(j, 1) = str 
     ws.Cells(j, 2) = ra(i, 2) 
     j = j + 1 
    Next str 
Next i 

End Sub