根据当前单元格值双击后自动插入空行并复制当前行信息到插入的空行

vickdani

用VBA的触发事件，比如，我双击D2单元格时，由于值是2，所以要在其下面自动插入1行空白行，并复制D2单元格的所在行的信息至下面1空白行。而双击D3时侯，则不触发程序，因为D3的值为1，而我双击D5单元格时，触发程序，由于值是3，自动插入2个空白行，并复制D5单元格所在行的信息至下面2空白行，如此类推。

719404338

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column <> 4 Then Exit Sub
   
3. For i = 2 To Target.Value
   
4. Rows(Target.Row + 1).Insert
   
5. Rows(Target.Row).Copy Rows(Target.Row + 1)
   
6. Next i
   
7. End Sub

复制代码

不知道为什么

如图，是不是这样的？

vickdani

719404338 发表于 2019-3-16 18:58

谢谢大神，为我工作减轻了很多，非常感谢