前面讲过复制整张表格的方法，使用语句Workbooks("实例.xlsm").Sheets("表格1").Copy Workbooks(wjm).Sheets(1)实现，这里用我们熟悉的Cells属性也可以实现整表复制。实例如下：

Sheets("全部").Activate

    Cells.Select

    Cells.Copy

    Sheets("表1").Activate

    Cells.Select

    ActiveSheet.Paste

lastrw = Sheets("表1").Range("b1").End(xlDown).Row

lastcl = Sheets("表1").Range("b1").End(xlToRight).Column

Sheets("表1").Range("a2").EntireRow.Insert

Sheets("表1").Range("b2").Value = "合计"

For i = 2 To lastrw

  If listgp(1) = Range("b" & i).Value Then

    For ii = 3 To lastcl

    If Cells(i, ii) = "" And Cells(1, ii) <> "" Then

      Cells(i, ii).Select

      Selection.EntireColumn.Delete

      ii = ii - 1

    End If

    Next

  End If

Next