Sub 复制粘贴()
Range("g8:ak13").Copy
Sheets("数据汇总表").Select
Sheets("数据汇总表").Range("g8:ak13").Select
ActiveSheet.Paste
MsgBox"保存成功"
End Sub
Sub 复制粘贴()
Range("g8:ak13").Copy
Sheets("数据汇总表").Select
Sheets("数据汇总表").Range("g8:ak13").Select
ActiveSheet.Paste
MsgBox"保存成功"
End Sub