求助~高手帮我看看我的VBA

duanwei147

1.现在只能实现插入行，且如果选择的是一个单元格而不是整行的话，会插入一个单元格，而不是一行（导致排版混乱）。希望解决。           
2.插入行后能够引用上一行灰色填充色区域的公式，和上行单元格锁定的属性（因为上一行有些是锁定的有些不是）。           
3.希望能在上面2个基础上加上个功能就是引用完上一行内容后自动将新增行未锁定的单元格内容清空。      


Sub 插入行()
    ActiveSheet.Unprotect "123"
    Selection.Insert Shift:=xlDown
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123"
End Sub


详细见附件

duanwei147

Sub 插入行()
    ActiveSheet.Unprotect "123"
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123"
End Sub

自己改成这样后第一个问题解决了。。。

duanwei147

Sub 插入行()
    ActiveSheet.Unprotect "123"  ' 解开保护工作表的密码
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove  ' 以当前选中（活动）单元格上插入一行
    ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select             ' 选中当前（活动）单元格上方的行。
    Selection.AutoFill Destination:=ActiveCell.Rows("1:2").EntireRow, Type:=xlFillDefault ' 将公式拖到下行。
    ActiveCell.Rows("1:2").EntireRow.Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123"  ' 锁定表格并设定密码
End Sub


这个不知道有bug没，但是还是没有实现3的功能
在End Sub前面这样加入的话
    ActiveCell.Offset(1, 1).Range("A1").Select
    Selection.ClearContents
多复制即便那么遇到锁定单元格就会弹出错误。

duanwei147

没人能帮我吗？

ren1982521

网站有问题，让我登录就搞了半天，我帮你看下吧

ren1982521

编好了你可以看看是不是你想要的结果