合并同一文件夹下的多个工作簿中的第一张表

LZH02620

shdh 发表于 2019-6-28 07:06
感谢，不过我用了这个代码后，并没有把第一张表中的数据完全合并，只合并到J项就完了啊

arr = sht.Range("a3:j" & j)
我只是从图中看到你的表格有J列，你有多少列，把第一个J改一下就好了啊，比如到第Z列，就改成arr = sht.Range("a3:Z" & j)

shdh

LZH02620 发表于 2019-6-28 09:42
arr = sht.Range("a3:j" & j)
我只是从图中看到你的表格有J列，你有多少列，把第一个J改一下就好了啊， ...

感谢你的解答，我把
         arr = sht.Range("a3:bz" & j)
        wb.Close False
        n_row = wk.Range("C65536").End(xlUp).Row
        wk.Range("a" & n_row + 1).Resize(j - 1, 100) = arr
这里改了后，合并数据成功了，但每次每条数据复制了两次，为什么？

liuxi001

shdh 发表于 2019-6-28 07:03
感谢了，花儿奉上，昨天太忙了

2楼代码更新过了