请问我这个语句有什么问题吗？

xzp0706

提示我对象变量或with块变量未设置
主要是想要将jigou这个表里的数据，筛选30天内合约到期的客户，然后新建个子表，将jigou里对应客户的机构ID、机构主体名称、对应服务人员提取到新表中
然后错误的地方，我下面标黄了，我这到底哪里错了？


Sub 三十天内过期客户()
    Application.DisplayAlerts = False
    Dim del As Worksheet
    For Each del In ActiveWorkbook.Worksheets
        If del.Name = "30天内到期客户总结" Then
            del.Delete
        End If
    Next
    Application.DisplayAlerts = True
    '系统查找有没有这个名字的表，有的话就删除





    Sheets.Add after:=kanban
    ActiveSheet.Name = "30天内到期客户总结"
    '新建表格存放数据


    Dim lastrow As Integer
    Dim rng As Range, rng1 As Range
    Dim gr, qr, zr, br As Variant
    Dim arr() As Variant
    With Sheets(jigou.Name)
    lastrow = .Cells.SpecialCells(xlCellTypeLastCell).Row
    rng = .Range("A1").CurrentRegion
    gr = .Range("1:1").Find("客户分层", , , xlWhole).Column
    qr = .Range("1:1").Find("机构ID", , , xlWhole).Column
    zr = .Range("1:1").Find("机构主体名称", , , xlWhole).Column
    br = .Range("1:1").Find("客户成功人员", , , xlWhole).Column

    rng.AutoFilter field:=sr, Criteria1:="1个月内到期客户"
    Set rng1 = rng.SpecialCells(xlCellTypeVisible)
    lr = rng1.Columns.Count
    lc = rng1.Cells.Count / lr
     ReDim arr(1 To 3, 1 To lc)
    For Each r In rng1.Areas
        a = r
        For i = 1 To UBound(a)
            m = m + 1
            For j = 1 To UBound(a, 2)
                If m = 1 Then
                    arr(m, j) = a(qr, j)
                ElseIf m = 2 Then
                    arr(m, j) = a(zr, j)
                ElseIf m = 3 Then
                    arr(m, j) = a(br, j)
                End If
                Debug.Print arr(m, j)
            Next
        Next
    Next
    End With
    rng.AutoFilter
    Range("A1").Resize(3, lc) = arr

End Sub

ykcbf1100

这是查客户分层字段的列号。
代码是指定在第1行查找，如果你的标题行不在第1行就会出错。

darklesson

我到觉得这位老师这个字段后面不小心加空格

xzp0706

ykcbf1100 发表于 2023-4-27 16:03
这是查客户分层字段的列号。
代码是指定在第1行查找，如果你的标题行不在第1行就会出错。

rng.AutoFilter field:=sr, Criteria1:="1个月内到期客户"
    Set rng1 = rng.SpecialCells(xlCellTypeVisible)


帮忙看看这个筛选的代码，我用msgbox测试了一下rng1这个存储筛选数据的对象，但是我发现并没有筛选，rngq里存储的依然是全部的数据，是我写错了吗？

xzp0706

darklesson 发表于 2023-4-27 16:15
我到觉得这位老师这个字段后面不小心加空格

没有，在审核的时候我发现问题了，我在测试我VB的时候，表第一行的数据莫名其妙消失了，但是我写完以后还是不是我想要的结果

darklesson

这是个什么东东

xzp0706

darklesson 发表于 2023-4-27 16:22
这是个什么东东

底表名字，本来是sheet7的，我改了他名称改成jigou

darklesson

xzp0706 发表于 2023-4-27 16:26
底表名字，本来是sheet7的，我改了他名称改成jigou

老师，语法错误。用sheets("jigou").name

xzp0706

darklesson 发表于 2023-4-27 16:29
老师，语法错误。用sheets("jigou").name

我用WITH jigou  就没有错误

但是。。。我现在问题是
rng.AutoFilter field:=sr, Criteria1:="1个月内到期客户"
    Set rng1 = rng.SpecialCells(xlCellTypeVisible)
这个语句，我用msgbox测试了一下rng1这个存储筛选数据的对象，但是我发现并没有筛选，rngq里存储的依然是全部的数据，是我写错了吗？

darklesson

xzp0706 发表于 2023-4-27 16:36
我用WITH jigou  就没有错误

但是。。。我现在问题是

老师，你可以坚持你的固执。但或许也可以尝试一下改成 with sheets("jigou")