誰幫忙看看我這個(gè)表怎么匯總啊

oyyc2011

想?yún)R總各公司各平臺全年的數(shù)據(jù)。當(dāng)然我這模板只做了半年。類似吧

access新新新手

Sub 匯總工作薄數(shù)據(jù)()
    Dim br
    Sheets("匯總").Range("a2:d65536").ClearContents
    br = [{"序號","客戶名稱","平臺名稱","應(yīng)收金額","實(shí)收金額"}]
    Range("A1:E1") = br
    Dim sht As Worksheet, xrow As Integer, Rng As Range
    For Each sht In Worksheets
        If sht.Name <> "匯總" Then
            Set Rng = Range("a65536").End(xlUp).Offset(1, 0)
            xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1
            sht.Range("a2").Resize(xrow, 5).Copy Rng
        End If
    Next
End Sub

oyyc2011

access新新新手 發(fā)表于 2016-9-16 13:53
Sub 匯總工作薄數(shù)據(jù)()
    Dim br
    Sheets("匯總").Range("a2:d65536").ClearContents

打開之后不能啟用啊。。PS。。你這個(gè)我完全看不懂啊。。我之后可能要去弄我另外一個(gè)表。。怎么弄啊

pureshadow

一個(gè)月才這么點(diǎn)數(shù)據(jù)，可以試試把六個(gè)表合并到一個(gè)表上，這樣統(tǒng)計(jì)匯總就簡單了。

oyyc2011

pureshadow 發(fā)表于 2016-9-16 20:01
一個(gè)月才這么點(diǎn)數(shù)據(jù)，可以試試把六個(gè)表合并到一個(gè)表上，這樣統(tǒng)計(jì)匯總就簡單了。

這只是個(gè)模板，實(shí)際不止，有三四十個(gè)

pureshadow

三四十個(gè)，就算50個(gè)吧，六個(gè)表也才300條數(shù)據(jù)，一個(gè)工作表可以接受一百多萬條數(shù)據(jù)呢。