如何用VBA实现工作簿下的一张工作表增加行列，其他表全部一起变化

lwm123138

如何用VBA实现工作簿下的一张工作表增加行列，其他表全部一起变化

liulang0808

欢迎新朋友
使用工作簿事件看看是否可行吧
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Target.Count = Columns(1).Cells.Count Or Target.Count = Rows(1).Cells.Count Then
    str1 = Target.Address
    arr = Split(str1, ":")
        If arr(0) = arr(1) Then
            Application.EnableEvents = False
            For Each Sht In Sheets
                If Sht.Name <> Sh.Name Then
                    Sht.Range(str1).Insert
                End If
            Next Sht
            Application.EnableEvents = True
        End If
    End If


End Sub

liulang0808

附件内容仅仅是针对插入一行或者一列
插入多行或者多列，可以判断target地址除了冒号是不是都是数字如果都是数字就是插入了行
如果都是字母就是插入了列

lwm123138

liulang0808 发表于 2020-1-19 19:18
欢迎新朋友
使用工作簿事件看看是否可行吧
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal ...

谢谢