将各个表中符合日期的数据复制到同一个表里面去

-建发

small_small 发表于 2022-12-12 12:50
楼主说一下哪儿错了

我也看不出来啊，运行错误1004，程序定义或者对象定义错误

small_small

-建发 发表于 2022-12-12 13:00
我也看不出来啊，运行错误1004，程序定义或者对象定义错误

https://u.diannaodian.com/wzzx/4432.html

ykcbf1100

参与一下

杨建营

请楼主参考，代码是比较基础的。

-建发

杨建营 发表于 2022-12-12 14:55
请楼主参考，代码是比较基础的。

亲，麻烦验证一下，数据不对

-建发

ykcbf1100 发表于 2022-12-12 14:05
参与一下

多谢大佬，我回去慢慢研究一下

杨建营

-建发 发表于 2022-12-12 15:32
亲，麻烦验证一下，数据不对

我给你的是按照2号读入的，不是3号。除了单价，其他都读入了。

zxsea_7426

按6楼代码，楼主给出的结构修改：
Sub shaixuan()
    Dim sh As Worksheet, arr, brr(1 To 1000, 1 To 8), k, m, n, dstr
    dstr = Sheets("汇总").Range("j2").Value
    For Each sh In Worksheets
        If sh.Name <> "汇总" Then
            arr = sh.Range("a1").CurrentRegion
            For k = 2 To UBound(arr)
                If arr(k, 2) = dstr Then
                    m = m + 1
                    For n = 1 To UBound(arr, 2) - 2
                        brr(m, n) = arr(k, n)
                    Next n
                    brr(m, UBound(arr, 2) - 1) = arr(k, UBound(arr, 2))
                End If
            Next k
        End If
    Next sh
    Sheets("汇总").Range("a2:g1000").ClearContents
    Sheets("汇总").Range("a2").Resize(m, 7) = brr
End Sub