任意插入若干行，自动复制上一行的格式和公式

stevefigo

问题如题
我在baidu找到  插入任意一行，自动复制上一行的格式和公式
http://cache.baiducontent.com/c?m=9f65cb4a8c8507ed4fece763104d8427404380147d8c8c4668d4e419ce3b4c413037bfa6773f130ed1c0766505aa5e5c9daa702d691765eadb9e870e8de885285e9f5733676b875613a30edfbb5151c437912afedf19f0cdf725e2a4c5a4af4352ba44737a9780fb4d0164dd19f20347e1b19838022f63ad993172ff28605f9a3436b05089e4251d7396f7ad4b3cc93da06706e1ab22c13a05b463b36e103335d45bb078465030f73f57e8454d13e4e94a91286e4153a138b9aeb5b5fc39ffcb9a47&p=81769a43959807fb08e290755444&newp=882a914e9c904ea907a4cd62175492695c16ed6876&user=baidu&fm=sc&query=vba+%B5%E3%BB%F7%B2%E5%C8%EB%D2%BB%D0%D0%BA%F3%2C%D7%D4%B6%AF%B8%B4%D6%C6%C9%CF%D2%BB%D0%D0%B8%F1%CA%BD&qid=&p1=4

但是，如果我想插入若干行后，仍能自动复制上一行格式和公式呢？  （“列” 又如何编写呢？）
求解答！

stevefigo

请问，有无高手解答啊？！？？

doitbest

最好有个附件

stevefigo

请看附件~~~~~~~~~

stevefigo

doitbest 发表于 2013-3-29 11:06
最好有个附件

我上传了，请高手指点一二

doitbest

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Columns.Count = Columns.Count And Application.CountA(Target) = 0 Then
   
3.     Rows(Target.Row - 1).Copy Target
   
4.     On Error Resume Next
   
5.     Target(1).Offset(, 3).Resize(Target.Rows.Count, ActiveSheet.UsedRange.Columns.Count).SpecialCells(xlCellTypeConstants, 1) = ""
   
6. End If
   
7. End Sub

复制代码

feiaoli

doitbest 发表于 2013-3-30 20:21

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count = Columns.Count And Application.CountA(Target) = 0 Then

    Rows(Target.Row - 1).Copy Target

    On Error Resume Next

    Target(1).Offset(, 3).Resize(Target.Rows.Count, ActiveSheet.UsedRange.Columns.Count).SpecialCells(xlCellTypeConstants, 1) = ""

End If

End Sub


终于找到了\(^o^)/~

stevefigo

doitbest 发表于 2013-3-30 20:21

谢谢，作用很大。请恕初学者无知，请问 能解释一下每句的意思吗？
另外，想请教一下，除了change事件，还有其他声明的，具体用法可以参考什么书籍好呢？谢谢吖

doitbest

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = Columns.Count And Application.CountA(Target) = 0 Then 如果触发事件的是整行且该行为空
    Rows(Target.Row - 1).Copy Target 将上一行内容格式复制到本行
    On Error Resume Next 屏蔽错误
    Target(1).Offset(, 3).Resize(Target.Rows.Count, ActiveSheet.UsedRange.Columns.Count).SpecialCells(xlCellTypeConstants, 1) = "" 清除重定义区域内的常量
End If
End Sub

doitbest

参考帮助 “Application 对象成员”