[已解决]请教如何实现自动增减行？

优友

如附件，文件中各表的A列内容是相同的，要实现的目标是：在表1 的7-19行之间插入（或删除）一行或多行，在表2 、3、4、5的相同位置能自动的象表1 一样插入（或删除）相同多的行。谢谢！ ljgRr8Py.rar (3.72 KB, 下载次数: 2)

2010-6-4 16:47 上传

点击文件名下载附件
请教如何实现自动增减行？

最佳答案

月排行榜 / 总排行榜

wayy

2010-6-12 13:51

直接全选工作表，然后再插入或删除就可以了。

跳转到最佳答案楼层

nichangdong

等待有人出来解答,来学习[em01]

优友

难道这个问题就没有人能帮忙解决一下吗，谢谢大侠了。

上清宫主

问题不难，但不敢接招[em07][em07][em07][em07]

杰

直接用引用吧，免得写代码了。

wayy

直接全选工作表，然后再插入或删除就可以了。

ytf888

直接等于不可以吗？

ytf888

表1有改变后，表2.3.4的A列还是需要往下再拉1遍

pangwen_822

还不会做出来！向大家学习、、、

开辆小富康

vNAH08gQ.rar (10.06 KB, 下载次数: 2)

2010-6-13 10:06 上传

点击文件名下载附件
请教如何实现自动增减行？
试一下这个：

Dim SelRng, R&
Private Sub Worksheet_Change(ByVal Target As Range)
 If Range("A65536").End(xlUp).Row <> R Then
  For Each sh In Sheets
   If sh.Name <> "Sheet1" Then
        If Range("A65536").End(xlUp).Row < R Then
            sh.Range(SelRng).EntireRow.Delete
        Else
            sh.Range(SelRng).EntireRow.Insert
    End If
   End If
  Next
 End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   SelRng = Target.Address

  R = Range("A65536").End(xlUp).Row
End Sub