Excel 매크로 - 한 시트에서 다른 시트로 행을 반복적으로 복사합니다.

Question

통합 문서에는 Sheet1, Sheet2, Sheet3의 세 개의 시트가 있습니다. 시트 2가에는 GroupA '모든 행을 포함하도록

key  values 
GroupA  aaa, bbbb 
GroupB  ccc, dddd 

이 어떻게 다른 시트 시트 2 및 Sheet3의 데이터를로드 할 수

이

aaa 3 
aaa 2 
aaa 45 
aaa 211 
aaa 12 
bbbb 3 
bbbb 2 
bbbb 4 
ccc 2 
ccc 5 
dddd 2 
dddd 10 
dddd 25 

이 같은 해시 테이블이있을 것입니다 : Sheet1에 다음과 같은 데이터가 'Sheet3 매크로 Subroutine을 사용하여 Sheet1에'GroupB '가있는 모든 행이 있습니까?

EDIT :
제가 그들의 값 등에는 GroupA, GroupB가를 저장하는 구조의 해시 테이블 종류를 사용하고자하는 반복적 프로세스가 각 그룹 w.r.t 따라서 SHEET1.

Answer 1

테이블 스타일을 고수해야합니까? 시트 1의 추가 열에 그룹을 포함시킨 다음 시트 2에 대한 피벗 테이블을 사용할 수 있다고 생각하면

Answer 2

ADO를 사용할 수 있습니다.

Dim cn As Object 
Dim rs As Object 
Dim rs2 As Object 
Dim sFile As String 
Dim sCon As String 
Dim sSQL As String 
Dim s As String 
Dim i As Integer, j As Integer 

''This is not the best way to refer to the workbook 
''you want, but it is very convenient for notes 
''It is probably best to use the name of the workbook. 

sFile = ActiveWorkbook.FullName 

''Note that if HDR=No, F1,F2 etc are used for column names, 
''if HDR=Yes, the names in the first row of the range 
''can be used. 
''This is the Jet 4 connection string, you can get more 
''here : http://www.connectionstrings.com/excel 

sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile _ 
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" 

''Late binding, so no reference is needed 

Set cn = CreateObject("ADODB.Connection") 
Set rs = CreateObject("ADODB.Recordset") 
Set rs2 = CreateObject("ADODB.Recordset") 


cn.Open sCon 

sSQL = "SELECT Key, [Values] " _ 
     & "FROM [Sheet2$] " 

rs.Open sSQL, cn, 3, 3 

i = 3 
Do While Not rs.EOF 

    sSQL = "SELECT Key, [Values] " _ 
      & "FROM [Sheet1$] " _ 
      & "WHERE '" & rs![Values] _ 
      & "' Like '%' & Key & '%' " 

    rs2.Open sSQL, cn, 3, 3 

    ''Pick a suitable empty worksheet for the results 
    ''Worksheets.Add 
    With Worksheets("Sheet" & i) 
     .Cells(1, 1) = rs!Key 

     For j = 0 To rs.Fields.Count - 1 
      .Cells(2, j + 1) = rs.Fields(j).Name 
     Next 

     .Cells(3, 1).CopyFromRecordset rs2 
    End With 

    rs.MoveNext 
    i = i + 1 
    rs2.Close 
Loop 

''Tidy up 
rs.Close 
Set rs = Nothing 
cn.Close 
Set cn = Nothing