如何汇总EXCEL里各个表里某一列的最后一行数据

小石头79

如何汇总EXCEL里各个表里某一列的最后一行数据,在汇总表中显示出来。

该贴已经同步到 小石头79的微博

sky20100601

简历一个空白sheet表，并放在第一位
单击右键“查看代码”或按alt+F8打开vba编辑器
将如下代码复制即可
Sub CombineSheet()
    On Error Resume Next
    Dim i, j, k, n As Long
    n = 1
    For i = 2 To ThisWorkbook.Sheets.Count
    For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
    For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
    ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
    Next k
    n = n + 1
    Next j
    Next i

    End Sub

上面j代表行数，如果是1表示从第1行开始复制，如果是2，表示从第2行复制，以此类推

i表示列数，如果是1表示从第1列开始复制，……