Question

我的excel有10个sheet，我要把前9个sheet中的内容，都复制到最后一个sheet中，请问如何操作啊，谢谢！

要求必须用公式或者vba实现，谢谢啊，我多给分数哈～
排列顺序：顺序依次排列就行！
比如第一个sheet有2行，第二个sheet有3行，那就在第10个sheet中，前两行内容就是第一个sheet的两行，后三行就是第二个sheet的三行。就行了。
关键是：前九个sheet有多少行，都是动态的，数量不定。。。希望用公式或vba解决第10个sheet的数据采集问题。。。

Answer 1

你要说明你希望把前9个sheet中的内容都复制到最后一个sheet10中时，怎么样排列？这个不难。
是按上面排表1，接着排表2；
还是左边排表1，右边排表2？
Dim n%(10), k%
Sub tjyd()
n(1) = Sheet1.UsedRange.Rows.Count
n(2) = Sheet2.UsedRange.Rows.Count
n(3) = Sheet3.UsedRange.Rows.Count
n(4) = Sheet4.UsedRange.Rows.Count
n(5) = Sheet5.UsedRange.Rows.Count
n(6) = Sheet6.UsedRange.Rows.Count
n(7) = Sheet7.UsedRange.Rows.Count
n(8) = Sheet8.UsedRange.Rows.Count
n(9) = Sheet9.UsedRange.Rows.Count
n(10) = Sheet10.UsedRange.Rows.Count

n(10) = n(10) + n(1)
Sheet1.Select
Range(Cells(1, 1), Cells(n(1), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste

n(10) = n(10) + n(2)
Sheet2.Select
Range(Cells(1, 1), Cells(n(2), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste

n(10) = n(10) + n(3)
Sheet3.Select
Range(Cells(1, 1), Cells(n(3), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste

n(10) = n(10) + n(4)
Sheet4.Select
Range(Cells(1, 1), Cells(n(4), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste

n(10) = n(10) + n(5)
Sheet5.Select
Range(Cells(1, 1), Cells(n(5), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste

n(10) = n(10) + n(6)
Sheet6.Select
Range(Cells(1, 1), Cells(n(6), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste

n(10) = n(10) + n(7)
Sheet7.Select
Range(Cells(1, 1), Cells(n(7), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste
n(10) = n(10) + n(8)
Sheet8.Select
Range(Cells(1, 1), Cells(n(8), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste
n(10) = n(10) + n(9)
Sheet9.Select
Range(Cells(1, 1), Cells(n(9), 26)).Select
Selection.Copy
Sheet10.Select
Cells(n(10) + 1, 1).Select
ActiveSheet.Paste
End Sub

Answer 2

复制第三列——右键——选择性粘贴——数值——确定！然后删除第一第二列都无所谓了。

Answer 3

Sub 复制()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Index < 10 Then
If Worksheets(10).UsedRange.Rows.Count > 1 Then
sh.UsedRange.Copy Worksheets(10).Cells(Worksheets(10).UsedRange.Rows.Count + 1, 1)
Else
sh.UsedRange.Copy Worksheets(10).Cells(Worksheets(10).UsedRange.Rows.Count, 1)
End If
End If
Next
End Sub

Answer 4

如果只是你要求的那样,应该很好实现的啊
在Sheet10中第一行的第一个单元格中令其等于sheet1中的第一行第一个单元格(也就是说在sheet10中的A1单元格输入: =Sheet1!A1),复制本单元格,然后在行标题上选中两行(需要几行选几行),粘贴.
同理,在第3行的第一个单元格(A3)输入: =Sheet2!A1,复制本单元格,在行标题上选中3行(同样的需要几行选几行),粘贴
以此类推吧