如何基于单元格L5的值，用ActiveX命令按钮为对应表格批量添加行？

核心修改思路 #

1. 读取单元格L5的数值作为要添加的行数，若L5为空或非数字，默认添加1行
2. 移除冗余的Select操作，直接定位目标表格对象，提升代码稳定性与效率
3. 通过循环实现批量添加行的需求

按钮1对应代码（Table15） #

Sub PV_Field_Add_Row()
    ' 获取添加行数，兼容L5非数字/空值的情况
    Dim addCount As Integer
    addCount = IIf(IsNumeric(Range("L5").Value), Range("L5").Value, 1)
    
    ' 绑定目标表格
    Dim targetTable As ListObject
    Set targetTable = ThisWorkbook.ActiveSheet.ListObjects("Table15")
    
    ' 循环批量添加行
    Dim i As Integer
    For i = 1 To addCount
        targetTable.ListRows.Add (1) ' 在表格顶部插入行，需底部插入则删除括号内的1
    Next i
End Sub

其他三个按钮的代码复用 #

只需将上述代码中的Table15替换为对应按钮要操作的表格名称（比如Table16、Table17、Table18），分别保存为不同的宏绑定到对应按钮即可。

注意事项 #

• 若需在表格底部添加行，将代码里的targetTable.ListRows.Add (1)改为targetTable.ListRows.Add
• 确保L5输入正整数，否则会触发默认添加1行的逻辑
• 建议指定具体工作表（比如ThisWorkbook.Sheets("Sheet1")）替代ActiveSheet，避免切换工作表时出错

内容的提问来源于stack exchange，提问作者Jphillip82