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

chifan · 发表于 2003-5-18 16:48

呵呵，自己搞清楚了，原来SHEET是第几张表是指VBA上面显示出来是SHEET几，不是看到的名字啊。

shuiyuan · 发表于 2003-4-21 20:03

To cheerson：
删除单元格中的公式，仅保留数值

shuiyuan · 发表于 2003-4-16 16:56

To chifan：
不必客气，望常来家看看

shuiyuan · 发表于 2003-4-16 14:38

To chifan：
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
Sheet2.Activate
Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)) = _
Range(Cells(2, 1), Cells([A65536].End(xlUp).Row, [IV1].End(xlToLeft).Column)).Value
Sheet1.Activate
End Sub

shuiyuan · 发表于 2003-4-15 15:02

To chifan：
请稍等，我帮您看看

shuiyuan · 发表于 2003-4-15 15:12

To chifan：
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

		自动登录	找回密码
密码			免费注册

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