它第一次正确完成,但是一旦我单击指定的按钮,或者运行宏,它就会在行(6:6)中添加另一个,这是行(5:5)的副本。任何帮助都感激不尽。
请注意,当我删除activesheet.unprotect和activesheet.protect时它可以正常工作
Sheets("Template").Select
Rows("1:21").Select
Selection.Copy
Sheets("Weekly Plan").Select
ActiveSheet.Unprotect
Rows("6:6").Select
Range("B6").Activate
Selection.Insert Shift:=xlDown
Range("K10").Select
Range("K28:K47").Select
Range("K47").Activate
Application.CutCopyMode = False
Selection.Copy
Range("K7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect
答案 0 :(得分:1)
它会这样工作吗?
Sheets("Weekly Plan").Select
ActiveSheet.Unprotect
Sheets("Template").Select
Rows("1:21").Select
Selection.Copy
Rows("6:6").Select
Range("B6").Activate
Selection.Insert Shift:=xlDown
Sheets("Weekly Plan").Select
Range("K10").Select
Range("K28:K47").Select
Range("K47").Activate
Application.CutCopyMode = False
Selection.Copy
Range("K7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect