Question

它第一次正确完成，但是一旦我单击指定的按钮，或者运行宏，它就会在行（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

Answer 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

为什么我的宏只能工作一次？

1 个答案: