主题：[求助] 思来想去，如何只导出分类汇总行的数据？

Dim r1 As Row

Dim r2 As Row

Dim i,j As Integer

Dim t1,t2 As Table

Dim str1,str2 As String

Dim str As String

t1 = e.form.Controls("Table1").Table

t2 = e.form.Controls("Table2").Table

r1= t1.current

r2=t2.AddNew()

For Each c1 As Col In t1.Cols

    For Each c2 As Col In t2.Cols

        If c1.Name = c2.Name Then

            r2(c2.Name) = t1.Current.DataRow(c1.Name)

        End If

    Next

Next