如何实现此任务,如果我在一个工作表中插入或删除一行,它应该自动插入或删除其他工作表中的相同行?

时间:2016-10-03 15:22:22

标签: excel vba excel-vba macros

我在workbook.say sheet1和sheet2中有2张。如果我假设我在第1行的第1行插入一个空行,那么它应该在第2行的第8行中自动添加一个空行。

同样适用于删除。 Sheet1将由用户使用,sheet2将对用户隐藏。

如果用户从sheet1删除一行,那么它应该在sheet2中重新选择,这就是我想要的。

我可以使用宏吗?

如何实现这一目标?

提前致谢...

1 个答案:

答案 0 :(得分:0)

我会用这样的东西

Private intPrevRows As Integer

Private Sub Worksheet_Activate()
    intPrevRows = UsedRange.Rows.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If UsedRange.Rows.Count < intPrevRows Then
        MsgBox "deleted"
    ElseIf UsedRange.Rows.Count > intPrevRows Then
        MsgBox "added"
    End If
    intPrevRows = UsedRange.Rows.Count

End Sub