求指点下：数据合并 代码

Eawer

老师们好！我有这段代码，目的是读取文件夹下和各个月报数据，汇总到当前工作表中，我写了代码如下


SubSumdata()
fd = "E:\"
fm = Dir(fd)
While fm <> ""
If InStr(fm, "xls") Then
    With GetObject(fd & fm)
        arr = .Sheets(1).UsedRange
        .Close
     End With
End If
crr = Union(crr, arr)   ' 代码错误，请指导如何将不同工作薄的SHEET1的数据，合并写入到crr
fm = Dir
Wend
EndSub


多谢！！！

liulang0808

楼主看下union帮助吧
不同表格区域，数组组合到一起，看具体组合要求，是否苦役拷贝到一起然后处理，或者统一遍历读入数组

ykcbf1100

说实话，你这代码很烂，也无从改起。
你如果真想解决问题，还是上传附件让论坛老师们新写个代码吧。

Eawer

ykcbf1100 发表于 2022-11-30 09:10
说实话，你这代码很烂，也无从改起。
你如果真想解决问题，还是上传附件让论坛老师们新写个代码吧。

这么精辟还烂啊？？？

能把数据读入数组啊，只是不，当循环到一个新的工作薄后，不知道如何合并了。

今天又想了一天，最终以RANGE复制的方式解决，却又遇到一个新问题，就是日期。

我想要以最近的日期放在最前面，类似于倒序，可是程序默认的是从最早的开始，不知道如何办了？
还没学到排序的内容