![如何将多个电子表格中格式相同的单元格提取到新的主文件中](https://linux22.com/image/1388061/%E5%A6%82%E4%BD%95%E5%B0%86%E5%A4%9A%E4%B8%AA%E7%94%B5%E5%AD%90%E8%A1%A8%E6%A0%BC%E4%B8%AD%E6%A0%BC%E5%BC%8F%E7%9B%B8%E5%90%8C%E7%9A%84%E5%8D%95%E5%85%83%E6%A0%BC%E6%8F%90%E5%8F%96%E5%88%B0%E6%96%B0%E7%9A%84%E4%B8%BB%E6%96%87%E4%BB%B6%E4%B8%AD.png)
我有 300 个 excel 文件,每个文件都具有完全相同的格式 - 每个文件中有 4 个工作表,具有相同的列/行标题。我试图从所有 300 个 excel 文件中的这 4 个工作表中的每个工作表的选定单元格中提取信息(例如,从工作表 A 中的单元格 D26、从工作表 B 中的单元格 D62 等),并将该数据放入一个新的主 excel 文件中,该文件包含来自 300 个 excel 文件中的每一个的信息。这可能吗?
答案1
发布了一些非常好的代码这里只需进行一些调整就可以实现您想要的效果。
戈登
需要进行一些更改,这些更改已得到很好的注释。这些行获取工作簿中 A 列的所有数据并将其复制到主表。
LR = Range("A" & Rows.Count).End(xlUp).Row 'Find last row
Range("A1:A" & LR).EntireRow.Copy .Range("A" & NR)
相反,您需要循环遍历工作表并使用类似这样的内容设置要复制的范围。
wbData.sheets(1).range("A2:A26").copy.Range("A" & NR) NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1 wbData.sheets(2).range("A2:A62").copy.Range("A" & NR) NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ...