excel：点击复选框,往复选框所在行插入一行。求代码。

下例实现当选中时插入行，选空时删除行
Private Sub CheckBox1_Click()
With Me.CheckBox1
If .Value Then
Me.Range(.LinkedCell).EntireRow.Insert
Else
Me.Range(.LinkedCell).Offset(-1, 0).EntireRow.Delete
End If
End With
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v7322fjrexr3xj2feyx.html