Excel使用VBA調用相應的數據，並通過兩個表對它們求和，如。

Sub WriteData()

Dim SN As String '表名

Dim iRow1壹樣長，iRow2壹樣長

SN = "Sheet1 " '可根據實際情況修改。

iRow2 = 2

Do Until Cells(iRow2，3) = " "

iRow1 = 2

直到紙張(序號)為止。單元格(iRow1，4) = " "

If InStr(1，張(序號))。Cells(iRow1，4)，Cells(iRow2，3)，vbTextCompare)>那麽0

如果Cells(iRow2，4) = " "則

單元格(iRow2，4) =工作表(SN)。單元格(iRow1，2)

其他

Cells(iRow2，4) = Cells(iRow2，4)& amp；“/”& amp；紙張(序列號)。單元格(iRow1，2)

如果…就會結束

單元格(iRow2，5) =單元格(iRow2，5) +工作表(SN)。單元格(iRow1，3)

如果…就會結束

irow 1 = irow 1+1

環

iRow2 = iRow2 + 1

環

單元格(1，1)。挑選

末端接頭