怎样做的循环，找到相应数据？

huohuoabc

有两个表，一个是总表 ，数据已经完全统计好
          一个是分类汇总表，需要往里补充数据，具体数据从总表里调用。
希望用VBA做个循环，直接能讲数据调用出来，不用人工复制
请各位大虾帮帮忙

[ 本帖最后由 huohuoabc 于 2009-7-5 17:01 编辑 ]

huohuoabc

没说清楚么，没人回帖啊

guzhen9315

2楼说的对!

guzhen9315

Sub 分类汇总()
    Application.ScreenUpdating = False
    Dim sht
    For Each sht In Sheets
        For hang = 2 To 6
            For lie = 2 To 6
              For i = 2 To 8
                If Workbooks("总表.xls").Sheets(Sheets(sht.Name).Cells(hang, 1).Value).Cells(i, 1).Value = sht.Name Then hang_2 = i
              Next i
                Sheets(sht.Name).Cells(hang, lie).Value = Workbooks("总表.xls"). _
                          Sheets(Sheets(sht.Name).Cells(hang, 1).Value).Cells(hang_2, lie).Value
           Next lie
        Next hang
    Next
    Application.ScreenUpdating = True
End Sub

huohuoabc

谢谢，搞定了。
只是中间两个语句不清楚什么意思。