[已解决]求助:在汇总表对各表数量进行加总

jinru

在汇总表对后面的各表数量进行加总,谢谢!!!

最佳答案

月排行榜 / 总排行榜

小车子

2012-4-24 00:40

Private Sub CommandButton1_Click()
Dim arrhz, arrdg, arrtp, sht
Dim lngRf As Long, lngRt As Long, bytsh As Byte
    With Sheets("汇总表")
        .Range("F4:F" & .Range("i65536").End(xlUp).Row).ClearContents
        arrhz = .Range("A4:I" & .Range("i65536").End(xlUp).Row)
        arrdg = .Range("F4:F" & .Range("i65536").End(xlUp).Row)
    For lngRf = LBound(arrdg) To UBound(arrdg)
        For Each sht In Worksheets
            If sht.Name <> "汇总表" Then
                arrtp = sht.Range("A4:I" & sht.Range("i65536").End(xlUp).Row)
                For lngRt = LBound(arrtp) To UBound(arrtp)
                    If arrhz(lngRf, 2) = arrtp(lngRt, 2) And _
                       arrhz(lngRf, 3) = arrtp(lngRt, 3) And _
                       arrhz(lngRf, 7) = arrtp(lngRt, 7) And _
                       arrhz(lngRf, 9) = arrtp(lngRt, 9) Then
                       arrdg(lngRf, 1) = arrdg(lngRf, 1) + arrtp(lngRt, 6)
                    End If
                Next lngRt
            End If
        Next sht
    Next lngRf
    .Range("F4:F" & .Range("i65536").End(xlUp).Row) = arrdg
    End With
End Sub

汇总表.rar (22.2 KB, 下载次数: 6)

2012-4-24 00:39 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

你各页的记录都重复登记，啥意思？
第88行开始与第4行开始内容一模一样！

lskvslgt

俺是来学习的      

jinru

zjdh 发表于 2012-4-23 18:51
你各页的记录都重复登记，啥意思？
第88行开始与第4行开始内容一模一样！

对不起,附件更新国,请帮忙看看!!!

小车子

Private Sub CommandButton1_Click()
Dim arrhz, arrdg, arrtp, sht
Dim lngRf As Long, lngRt As Long, bytsh As Byte
    With Sheets("汇总表")
        .Range("F4:F" & .Range("i65536").End(xlUp).Row).ClearContents
        arrhz = .Range("A4:I" & .Range("i65536").End(xlUp).Row)
        arrdg = .Range("F4:F" & .Range("i65536").End(xlUp).Row)
    For lngRf = LBound(arrdg) To UBound(arrdg)
        For Each sht In Worksheets
            If sht.Name <> "汇总表" Then
                arrtp = sht.Range("A4:I" & sht.Range("i65536").End(xlUp).Row)
                For lngRt = LBound(arrtp) To UBound(arrtp)
                    If arrhz(lngRf, 2) = arrtp(lngRt, 2) And _
                       arrhz(lngRf, 3) = arrtp(lngRt, 3) And _
                       arrhz(lngRf, 7) = arrtp(lngRt, 7) And _
                       arrhz(lngRf, 9) = arrtp(lngRt, 9) Then
                       arrdg(lngRf, 1) = arrdg(lngRf, 1) + arrtp(lngRt, 6)
                    End If
                Next lngRt
            End If
        Next sht
    Next lngRf
    .Range("F4:F" & .Range("i65536").End(xlUp).Row) = arrdg
    End With
End Sub

汇总表.rar (22.2 KB, 下载次数: 6)

2012-4-24 00:39 上传

点击文件名下载附件

jinru

谢谢,
谢谢小车子 !!!!