excel代码存档

 

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

　　

 

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 @ 2022-03-21 17:55  保罗php  阅读(52)  评论(0)    收藏  举报