在excel中，用vba实现:在任意位置插入一行后，该行能自动复制上一行的所有公式及格式

上善若水888882

KCFONG 发表于 2014-4-29 21:09
see if fit your request

谢谢老师，这个正是我所需要的，再次感谢啦。

上善若水888882

KCFONG 发表于 2014-4-29 21:09
see if fit your request

为了防止破坏公式，我把7行给隐藏起来。

netbug1972

KCFONG 发表于 2012-1-23 00:04
Sorry I had missed 1 line

Private Sub Worksheet_Change(ByVal Target As Range)

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Columns.Count <> 256 Then Exit Sub
   
3. Application.EnableEvents = False
   
4. Rows(Target.Row + 1).Copy Rows(Target.Row)
   
5. For Each c In Rows(Target.Row).Cells
   
6.      If Not c.Formula Like "=*" Then c.ClearContents
   
7. Next c
   
8. Application.EnableEvents = True
   
9. End Sub

复制代码

我想复制下一行的公式，所以把Target.Row - 1 改成了 Target.Row + 1，结果发现：插入的时候是ok的，但在删除行的时候，会一下子删除多余的行。