求助各位大神关于筛选后合并子表

探索伊克塞奥

现每周需要和车辆监管库进行对账，我需要对车辆台账筛选后合并子表，具体如下并见附件，
1、需要将每个客户已入库的车辆（即L列已有日期），但还没还款提车（W列没有日期或者为空，因为有退车和其他不做业务等情况标记为其他文字而非日期，这些也一并筛掉）全部筛选出来合并在一起，其他（已提车或者未入库）都删去，不留空行
2、新建一个名称为合并在库车辆的子表，每个客户子表筛选完后，将所有客户子表合并在这张名称为合并在库车辆的子表，表头目录留在最上面一行，其他目录不留，其他子表空表1，空表2，盯市台账、汇率，汇总等与客户无关的子表都不参与筛选，留着就行，合并在库车辆的子表放在最前即可


因后续子表客户越来越多，如果还用传统办法已难以为继，现求助各位大神代码，不胜感激

3190496160

Sub 筛选()
Dim ar As Variant
Dim arr()
Dim rng As Range
ReDim arr(1 To 50000, 1 To 24)
For Each sh In Sheets
    If InStr(sh.Name, "客户") > 0 Then
        m = m + 1
        If m = 1 Then Set rng = sh.Rows("1:2")
        rs = sh.Cells(Rows.Count, 12).End(xlUp).Row
        ar = sh.Range("a1:x" & rs)
        For i = 3 To UBound(ar)
            If Trim(ar(i, 12)) <> "" Then
                If IsDate(ar(i, 12)) Then
                    If Trim(ar(i, 23)) = "" Or IsDate(ar(i, 23)) Then
                        n = n + 1
                        For j = 1 To UBound(ar, 2)
                            arr(n, j) = ar(i, j)
                        Next j
                    End If
                End If
            End If
        Next i
    End If
Next sh
If n = "" Then MsgBox "没有符合条件的数据！": End
With Sheets("合并在库车辆")
    .[a1].CurrentRegion = Empty
    rng.Copy .[a1]
    .[a3].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "ok!"
End Sub

3190496160

车辆质押台账.rar (59.45 KB, 下载次数: 13)

2022-12-16 14:21 上传

点击文件名下载附件

探索伊克塞奥

3190496160 发表于 2022-12-16 14:21

您好，感谢您的帮助，我下载后发现不是我想要的结果，问题如下
1、能否去除按钮1功能，我只运行代码得出结果即可
2、筛选结果错误，您把已提车的明细也筛出了，我要的是目前在库车辆，明显不对
3、数量不对，仅是C客户目前就有356辆在库，您筛出的数量明显不对
4、能否麻烦您使用排除法筛选客户子表名称，因为最后5个子表名称，空表1，空表2，盯市价格，汇率，汇总，这5个名称后续是不变的，但是客户子表名称后续不一定包含客户两字

3190496160

探索伊克塞奥 发表于 2022-12-16 16:31
您好，感谢您的帮助，我下载后发现不是我想要的结果，问题如下
1、能否去除按钮1功能，我只运行代码得出 ...

除非你的表述跟你的需求不是一样的

3190496160

这句代码
If Trim(ar(i, 23)) = "" Or IsDate(ar(i, 23)) Then
修改为这样试试看看吧
If Trim(ar(i, 23)) = "" Or not IsDate(ar(i, 23)) Then

探索伊克塞奥

3190496160 发表于 2022-12-16 19:00
这句代码
If Trim(ar(i, 23)) = "" Or IsDate(ar(i, 23)) Then
修改为这样试试看看吧

我的理解是直接按照是否空值的标准去筛选吧，不用日期函数那么复杂，您能受累再发我一个表格吗，按照我给您发的修改的意思，感谢

3190496160

探索伊克塞奥 发表于 2022-12-16 20:28
我的理解是直接按照是否空值的标准去筛选吧，不用日期函数那么复杂，您能受累再发我一个表格吗，按照我给 ...

给你的修改已经你连测试都懒得测试一下，甚至把我的修改意见全盘否定了，我根本就不知道要从何改起，
想帮你也是爱莫能助

探索伊克塞奥

3190496160 发表于 2022-12-16 20:34
给你的修改已经你连测试都懒得测试一下，甚至把我的修改意见全盘否定了，我根本就不知道要从何改起，
想 ...

抱歉啊老师，如有做的不好的地方请多包涵，昨天发烧太难受了，也没来及测试，刚看到您在第二个帖子发的结果完全正确，太感谢了