Excel中如何引用另一表的所有内容？

来源：百度知道 编辑：UC知道 时间：2024/05/22 16:45:53
Excel中，第一个工作表为总表，接下去就有“表1,表2,表3......”，要求在第一个总表中，先显示表1的所有内容，在表1后面再显示表2的所有内容，接下去再显示表3的所有内容，一共有二百个工作表，如果要一个个复制过来，那太辛苦了，有没有什么公式可以在总表中一次性输入就可以按顺序显示所有的内容的呢？有朋友说用到宏功能，我不知道怎么用。
注意：
不要用引用公式 ＝表名！单元格
这样太麻烦了，比复制粘贴还麻烦。

还是来个简明的吧。
Sub xxxx()
Dim lastrow, lasrcol

For i = 2 To Sheets.Count

lastrow = Sheets(i).UsedRange.SpecialCells(xlCellTypeLastCell).Row
lastcol = Sheets(i).UsedRange.SpecialCells(xlCellTypeLastCell).Column
Sheets(i).Range(Sheets(i).Cells(1, 1), Sheets(i).Cells(lastrow, lastcol)).Copy Destination:=Worksheets("Sheet1").Range("A1")

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Next

End Sub
以上宏，延时10秒显示下一页

ALT+F11，粘贴以下VBA小程序（所谓宏）F5运行即可。

Sub xxx()
For i = 2 To 200
Sheets(i).Select
n = WorksheetFunction.CountA(Range("a:a"))
Range("1:" & n).Select
Selection.Copy
Sheets(1).Select
x = WorksheetFunction.CountA(Range("a:a"))
Cells(x + 1, 1).Select
Act