excel代码存档

 

1
2
3
4
5
6
Sub 宏2()
'
' 宏2 宏
Range("汇总表!A1:A2").Value = Range("表1!A1:A2").Value
     
End Sub

  

 

1
2
3
4
5
6
7
8
9
10
11
Sub 宏2()
'
Range("C13:C14").Value = Range("A1:A2").Value
' 宏2 宏
    Sheets("表1").Select
    Range("A2:J2").Select
    Selection.Copy
    Sheets("汇总表").Select
    Range("A2:J2").Select
    ActiveSheet.Paste
End Sub

  

posted @   保罗php  阅读(31)  评论(0编辑  收藏  举报
点击右上角即可分享
微信分享提示