分散的数据传到一个 EXCEL 表格中有时候有些数据，今日做一点，明天做一点,存放的地方也不一样,但要实时汇总.比如采购清单,是按生产任务单号存放，但中途可能会之前的数据追加，以增加工作表的方式增加。一年的所有数据都存在“E:\生产任务单\2025\2025 物料需求表。xls",并且此表的数据要求可以实时查询，以便跟进物料采购情况.以下说明如何把一个 EXCEL“20250416”工作表的“单 2_追加”的内容，增加到“E：\生产任务单\2025\2025 物料需求表。xls”的工作表“2025"里.1． 打开保存好数据表格“20250416”,选中工作表的“单 2_追加"，右键，点击“查看代码”2． 把以下程序复制弹出的窗口中.Sub 数据 range 测试()Dim Mypath As StringMypath = ”E：\生产任务单\2025\2025 物料需求表"ActiveSheet。UsedRange.CopyWorkbooks.Open （Mypath)Workbooks （ "2025 物 料 需 求 表 " ） .Worksheets("2025” ） .Range("A” ＆ Workbooks("2025物料需求表”).Worksheets(”2025").Cells.SpecialCells（xlLastCell）。Row + 1）。SelectWorkbooks（"2025 物料需求表").Worksheets（"2025")。PasteWorkbooks("2025 物料需求表"）.Close TrueEnd Sub3． 按 F5 执行程序，一闪而过，你会看到数据自己保存到“E：\生产任务单\2025\2025物料需求表。xls”。4． 关闭表格“20250416”，不保存即可。这样一来，不用手动打开 2025 物料需求表.xls，还要进行区域复制，粘贴.
