[已解决]请问怎如何通过VBA插入指定行?

certainly003

比如D1=3 按下开关 就在第三行后插入一行空白的 上下的公式内容都不变
输入D1=5 就在第五行后插入

D1是一个根据根据其他格变化的数

菜鸟啊.....谢谢大家!!!!

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2012-1-4 07:57

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$D$1" Then Exit Sub
   
4. Cells(Target.Value + 1, 1).EntireRow.Insert shift:=xlDown
   
5. End Sub
   

复制代码

可用工作表变化事件试试看。

跳转到最佳答案楼层

sunjing-zxl

1. 
   
2. Sub 插入()
   
3.     Dim Ro As Long
   
4.     Ro = [D1]   
   
5.     Rows(Ro).Insert
   
6. End Sub

复制代码

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$D$1" Then Exit Sub
   
4. Cells(Target.Value + 1, 1).EntireRow.Insert shift:=xlDown
   
5. End Sub
   

复制代码

可用工作表变化事件试试看。

雄鹰

Sub 插入指定行()
     Rows(Range("d1")+1).Select
     Selection.Insert Shift:=xlDown
End Sub

雄鹰

Sub 插入指定行2()
     Rows([d1]+1).Insert
End Sub

雄鹰

sunjing-zxl 发表于 2012-1-4 07:55

一句代码解决问题！{:211:}
强！

菜鸟锐

楼上的都是高手啊~~~~~~~~~