通过事件sheet.COPY后range作用于worksheet失败

pepsi7777

各位老师好：
通过sheet1上的事件触发了 Sheet2.Copy。新复制的sheet上有个 ListObjects("表1")。想筛选这个ListObjects("表1")。提示“range作用于worksheet失败”

用ActiveWorkbook.Worksheets("A").Range置入数组没问题，为什么用ActiveWorkbook.Worksheets("A").Range就无法控制同sheet上的ListObjects呢？


应该如何修改？
感谢  ！！！！！

pepsi7777

自己顶一下

liulang0808

Worksheets("A")
这张表不存在的，所以报错吧

zhjlgaojuan

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, Wb As Workbook, Sht As Worksheet
If Target.Column = 4 Then
    If Target = 1 Then
        Sheet2.Copy
        Set Wb = ActiveWorkbook
        Set Sht = Wb.ActiveSheet
        Sht.Name = "A"
        With Sht
            arr = Range("A1:B3")
            .Range("a2").Resize(3, 2) = arr
            .ListObjects("表1").Sort.SortFields.Add2 Key:=Sht.Range("表1[[#All],[年龄]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With .ListObjects("表1").Sort
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
            .ListObjects("表1").Sort.SortFields.Clear
        End With
    End If   
End If
End Sub

zhjlgaojuan

key后面的range(...)前面需要限定工作表，否则默认为当前工作表，而当前工作表中并没有“表1”

pepsi7777

liulang0808 发表于 2023-4-9 12:21
Worksheets("A")
这张表不存在的，所以报错吧

Worksheets("A") 有的。shee2.copy后，修改了工作表名

pepsi7777

zhjlgaojuan 发表于 2023-4-9 13:02
key后面的range(...)前面需要限定工作表，否则默认为当前工作表，而当前工作表中并没有“表1”

我想对新复制的工作表进行操作，新复制的工作表有“表1”

pepsi7777

zhjlgaojuan 发表于 2023-4-9 12:58
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, Wb As Workbook, Sht As Worksheet
If T ...

感谢 zhjlgaojuan 老师

pepsi7777

liulang0808 发表于 2023-4-9 12:21
Worksheets("A")
这张表不存在的，所以报错吧

感谢 liulang0808 老师。已经解决