请问一下我这个默认开启，自动设置列宽的报错是什么原因？

独钓寒江雪冫

我的目的是为了默认开启粘贴单元格粘贴数值会自动改变列宽，以免出现#########

但是我发现粘的多了会报错。代码如下：

Private WithEvents xlApp As Application

Dim Rng As Range

Dim a, b As Integer

Private Sub Workbook_Open()

Set xlApp = Excel.Application

End Sub

Private Sub xlApp_SheetChange(ByVal sh As Object, ByVal Target As Range)

    Application.ScreenUpdating = False

    If Target.Cells.count < 100 Then

        For Each Rng In Target

            If Not IsNumeric(Rng) Then

            Else

                a = Rng.ColumnWidth

                Rng.EntireColumn.AutoFit

                b = Rng.ColumnWidth

                    If b > 25 Then

                        Rng.ColumnWidth = a

                        Else

                    End If

            End If

        Next Rng

    End If

    Application.ScreenUpdating = True

报错如下：

会提示 方法count作用于对象range时失败

代码框：

独钓寒江雪冫

提示的是这样，刚才截图截错了

独钓寒江雪冫

重新贴一下代码：
Private WithEvents xlApp As Application
Dim rng As Range
Dim a, b As Integer
Private Sub Workbook_Open()
Set xlApp = Excel.Application
End Sub
Private Sub xlApp_SheetChange(ByVal sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Cells.count < 100 Then
        For Each rng In Target
            If Not IsNumeric(rng) Then
            Else
                a = rng.ColumnWidth
                rng.EntireColumn.AutoFit
                b = rng.ColumnWidth
                    If b > 25 Then
                        rng.ColumnWidth = a
                        Else
                    End If
            End If
        Next rng
    End If
    Application.ScreenUpdating = True
End Sub

独钓寒江雪冫

独钓寒江雪冫 发表于 2023-2-14 10:18
重新贴一下代码：
Private WithEvents xlApp As Application
Dim rng As Range

本身想法是超过100不执行，但是我粘贴大表的时候 就会报错，不知道原因