多表合一表2010-01-13 20:31Sub 多表合一表()

 

Sub 多表合一表()
Sheets("6").Cells.Clear
For Each sht In Sheets
If sht.Name <> "6" Then
K = Sheets("6").Range("A65536").End(xlUp).Row + 1
L = sht.UsedRange.Rows.Count
sht.Rows("2:" & L).Copy Sheets("6").Cells(K, 1)
End If
Next
Sheets("6").Range("A1:C1") = Array("列标题1", "列标题2", "列标题3")
End Sub