Office中国论坛/Access中国论坛

标题: 高手幫幫忙好嗎?急 [打印本页]

作者: uone 时间: 2005-6-27 23:51
标题: 高手幫幫忙好嗎?急

緣儿﹐新QqQ

86523884

有一工作表A

a b c

1 2    3

4 5    6

4 2    1

5 7    3

現要把這工作表的數据插入到另一工作表B中

a b    c

1 2    3

4 5    6

4 2    1

5 7    3

然后把工作表A的數据全部刪掉﹐除標題 a b c

偶是菜鳥啊﹐請教高手﹐怎么編程啊?謝謝啦

[em08]

作者: 晓月清风 时间: 2005-6-28 00:34
下面的代码将工作表SHEET1中A1到C5的内容复制到工作表SHEET2中A1到C5的位置，然后清除工作表SHEET1中A2到C5的内容，也就是只留下标题栏。根据你的需要，自行修改一下代码Sub test()

Sheets("Sheet1").Activate '激活要复制内容的工作表

Range("A1:C5").Select    '选择要复制的区域

Selection.Copy          '复制

Sheets("Sheet2").Activate '选择要粘贴内容的工作表

Range("A1").Select       '选择要粘贴的位置

ActiveSheet.Paste       '粘贴

Sheets("Sheet1").Select '回到工作表sheet1

Range("A2:C5").Select    '选择要清除内容的区域

Selection.ClearContents '清除内容

End Sub

作者: uone 时间: 2005-6-28 03:32

[color="#990000"]晓月清风﹐謝謝啦

作者: 红池坝 时间: 2005-7-3 22:59
像这类可以手工完成的任务的宏代码，可以通过录制宏获取的。请楼主以后多在这方面去下点功夫，会有收获的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)