Excel被保护了无法复制

Excel被保护了无法复制

1.改名为sheet1 新建一个sheet2的子表

2.然后按下ait+f11 在插入中点击模块

3.输入以下代码 运行即可

Sub 复制()
 Sheets("sheet1").Range("a5:n34").Copy Sheets("sheet2").Range("a1")
End Sub

此乃本人前年遇到过的问题 现总结分享 希望能对有缘人有所帮助