求助。怎么实现这个的表

cangqiong

如。。。表1、表2、表3、表4、表5 的第72条记录（一整条数据。包括A1，B1，C1，D1。。。。）

显示在表6里面。。。。

按A1，A2，A3。。顺序，怎么样作啊

[此贴子已经被作者于2006-9-14 12:41:48编辑过]

老鬼

什么意思

cangqiong

要求Sheet1  到Sheet5   第一排的数据  按顺序显示在Sheet6里面  像附件的形式。

最好用编程。。的方式作。。。。

tangqp

Sub main()
xRow = 1
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count - 1
        For j = 1 To 9
            Sheets(6).Cells(xRow, j) = Sheets(i).Cells(1, j)
        Next
        xRow = xRow + 1
    Next
End Sub

cangqiong

谢谢

cangqiong

For i = 1 To Application.ActiveWorkbook.Worksheets.Count - 1
这句是什么意思啊？

为什么要—1啊。。。。-1是什么意思啊

cangqiong

还有要是把第1到6的第一排数         

      a1 b1 c1 d1 e1

1     1  2   3  4  5

换成第15排  应该改哪个数啊

15    a1 b1 c1 d1 e1

      1  2   3  4  5

cangqiong

我改出来了。。。

但是

For i = 1 To Application.ActiveWorkbook.Worksheets.Count - 1
这句是什么意思啊？



为什么要—1啊。。。。-1是什么意思啊

tangqp

sheets(6)不用,那就-1了

ayu330602

教你一个简单的方法：打开表6，将A列的相应行分别与表1-5A列的对应单元格建立连接，然而拉动操纵柄至全部。

表6，A1=表1，A1；

表6，A2=表2，A1

表6，A3=表3，A1

。。。。。。

要哪一项都行哦

[此贴子已经被作者于2006-9-18 11:36:03编辑过]