||
Sub clean()
'
' clean 宏
'将sheet1的A2到DQ2这一行的数据复制到sheet2中
Sheet1.Range("A2:DQ2").Copy Destination:=Sheet2.Range("A2:DQ2")
'将sheet1的A2到DQ2的数据复制到sheet2中的以A1为开始的单元格中
Sheet1.Range("A2:DQ2").Copy Sheet2.[A1]
End Sub
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-5-22 00:40
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社