怎么通过命令把表1的N列追加到表2最后？

chifan

我需要把第一个工作表的内容，剪切后追加到第二个工作表最后一行中去，但因为每次第一个工作表的列数不确定，所以头很晕~！！
    是个关于做工资的表格，第一个工作表是部门单独的，人员经常变动，所以数据区域每次都变。
    前两天关于个调税的函数经这里高手指点，已经会了，这次再来请教：）

chifan

这贴已经在“EXCEL程序开发”上发过了，可是没人教我，都是看客。只好来这里发多遍，撞撞运气：）

[此贴子已经被作者于2003-4-15 15:06:49编辑过]

zslevin

"每次第一个工作表的列数不确定，所以头很晕~！！"?
不明白:) 请说清楚一点, 我看第一个工作表的列很确定啊, 你到底想怎么做?

chifan

呵呵，我这文件是比方说而已
我平时做的时候，在第一张表上，
先做办公室的工资，做完，复制到第二张表去
然后再做财务部，做完，复制、追加到第二张表去
然后再做货运部，做完，复制、追加切到第二张表去
。。。。。。
最后，第二张表就是完整的工资情况表咯~

我是在想，是不是能够在第一张表上搞个按纽，做完一个部门以后，用按纽直接把内容复制追加到第二张表最后，然后清空第一张表除第一列抬头以外的内容，以便我接着做第二个部门工资。但每个部门工资不一样，所以我不用录制宏就不行了。

[此贴子已经被作者于2003-4-15 15:04:00编辑过]

chifan

谢谢版主：），录制宏里面的语句那么多，我几乎快晕了。有没这方面的书可以逐步教的？

chifan

呵呵，真厉害。不过您能不能每句解释下到底派什么用场吗？
我就知道SUB END SUB和SHEET1.SELECT这句，真不好意思。

chifan

太神奇了，且不说可以好多数据追加过去，光追加数据的速度就比我用录制宏出来的速度快好多，太感谢了。
这到底是VBA的功能还是EXCEL 的功能啊，赞叹！

zslevin

Sub AddText()
    Sheet1.Select
    Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Copy _
    Sheet2.Cells(Sheet2.[A65536].End(xlUp).Row + 1, 1)
    Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Clear
End Sub

Sheet1.Select
'选择工作表1
Cells([A65536].End(xlUp).Row
'取数据区域最后一行的行号, 从A65536(行号最大的单元格)向上遇见的第一个非空数据的行号即为结果
Cells([IV1].End(xlToLeft).Column
'同样原理,这是取数据区域最右一列的行号, 从IV1(列号最大的单元格)向左遇见的第一列非空数据的列号即为结果
Range(c1, c2)
'返回c1与c2为对角线的矩形区域

于是
    Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Copy _
    Sheet2.Cells(Sheet2.[A65536].End(xlUp).Row + 1, 1)
就是将Sheet1的数据区域(未包括标题行)复制到Sheet2的末尾
然后
    Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Clear
将Sheet1的数据区域(未包括标题行)清除掉

晕了吗? :)

chifan

呵呵，没晕，看懂了。谢谢。
那如果只需要数值COPY过去呢？
在录制的宏里面是这么显示的：
    Range("A2:J6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
是最下面那句表示仅仅粘贴数值吗？
那如果要补充到ADDTEXT里面去，应该怎么办？

chifan

直接加个:=xlvalues？？好象不行。
   Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Copy _
   Sheet2.Cells(Sheet2.[A65536].End(xlUp).Row + 1, 1):=xlvalues

把Selection.PasteSpecial Paste:=xlvalues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False直接跟在上面那句COPY下面好象也不行。