excel如何根据条件，自动插入空白行？

香橙磅蛋糕

求助！假如O列数值不为1，在该行下面自动插入相应数量的空白行，该如何操作？

想要的效果如下图

wodewan

附件供参考（VBA）
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 15 And .Count = 1 Then
        If .Value > 1 Then Rows(.Row + 1).Resize(Int(.Value)).Insert
    End If
End With
End Sub

libo5563

pq里 不计算，就是表格的重建

cnq88

wodewan 发表于 2019-10-18 08:41
附件供参考（VBA）
Option Explicit

您好，我也遇到同样的问题，但编码好像运行不了，按F5时就弹出宏的窗口，“运行”的按钮灰色按不了。另外本人对VBA不熟悉，想问问如何改不同的条件，例如不是O列，是其他列，不是1是其他值，承蒙赐教！

wodewan

cnq88 发表于 2019-10-18 14:22
您好，我也遇到同样的问题，但编码好像运行不了，按F5时就弹出宏的窗口，“运行”的按钮灰色按不了。另外 ...

1. 这个宏是单元格change事件，当O列的单元格的数值发生变化时，自动触发的，不需要按F5运行宏。
2. 如果想改变触发的列或地址，则须修改相应的代码，同样值不同也不同的设置，具体问题具体处理。

gujianhui

wodewan 发表于 2019-10-18 19:51
1. 这个宏是单元格change事件，当O列的单元格的数值发生变化时，自动触发的，不需要按F5运行宏。
2. 如 ...

谢谢老铁提供的思路！！