[已解决]将文件夹内及所有子文件夹内的表格数据汇总，今天这个问题有点多啊，感谢

zjdh

1. 这句语句有错误，我原来笔误，应该
  Sheets(3).Rows("7:7").Copy ThisWorkbook.Sheets(3).Cells(Sheets(3).UsedRange.Rows.Count + 1, 1)
2. 可改成（不复制公式）
  Sheets(3).Rows("7:7").Copy
ThisWorkbook.Sheets(3).Cells(Sheets(3).UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues

bai7190

zjdh 发表于 2015-5-22 11:01
1. 这句语句有错误，我原来笔误，应该
  Sheets(3).Rows("7:7").Copy ThisWorkbook.Sheets(3).Cells(Sheet ...

但是我用着没出错啊，！

zjdh

那是因为表2与表3的数据行数一样多！