EXCEL区域复制跨表粘贴

yifeng0286

想做个多表汇总，需要将EXCEL分表数据区域复制再跨表粘贴到汇总表里，有合并单元格。
请问怎么搞？

a2083657

用COM对象操作，直接Copy+PasteSpecial保留合并单元格。

程序集变量：Excel, 工作簿, 分表, 汇总表  
分表.可见 = 假 ' 可选  
分表.UsedRange.复制  
汇总表.单元格(目标行, 1).PasteSpecial(-4163) ' -4163 = xlPasteAll  

目标行累加：每次从汇总表.UsedRange.Rows.Count + 1开始  

如果怕格式残留，粘贴后清剪贴板：  
置剪辑板数据 (“”, #文本型)  

代码示例：  

.版本 2  
.支持库 spec  

.子程序 _按钮1_被单击  
.局部变量 Excel, 对象  
.局部变量 工作簿, 对象  
.局部变量 分表, 对象  
.局部变量 汇总表, 对象  
.局部变量 i, 整数型  
.局部变量 分表名, 文本型, 数组  
.局部变量 目标行, 整数型  

Excel.创建 (“Excel.Application”, )  
Excel.写属性 (“Visible”, 假)  
工作簿 = Excel.读对象属性 (“Workbooks”).读对象方法 (“Open”, “C:\你的文件路径.xlsx”)  
汇总表 = 工作簿.读对象属性 (“Worksheets”).读对象方法 (“Item”, “汇总”)  
分表名 = { “表1”, “表2”, “表3” }  

计次循环首 (取数组成员数 (分表名), i)  
    分表 = 工作簿.读对象属性 (“Worksheets”).读对象方法 (“Item”, 分表名 [i])  
    分表.读对象属性 (“UsedRange”).读对象方法 (“Copy”, )  
    目标行 = 汇总表.读对象属性 (“UsedRange”).读对象属性 (“Rows”).读对象属性 (“Count”) + 1  
    汇总表.读对象属性 (“Cells”).读对象方法 (“PasteSpecial”, -4163)  
    置剪辑板数据 (“”, #文本型) ' 清剪贴板防卡  
计次循环尾 ()  

工作簿.读对象方法 (“Save”, )  
Excel.读对象方法 (“Quit”, )

花间一壶酒

这个得看你是要直接将数据 依次向下粘贴到汇总里  还是将数据读出来数字加到汇总里  前者的话直接看沙发的代码就行了  后者需要根据具体表格数据来写  

yifeng0286

花间一壶酒 发表于 2026-7-14 11:34
这个得看你是要直接将数据 依次向下粘贴到汇总里  还是将数据读出来数字加到汇总里  前者的话直接看沙发的 ...

后者更适合我，需要将数据读出来文本加到汇总表里

补充内容 (2026-7-14 12:40):
只需要复制指区域，不是所有内容合并

yifeng0286

a2083657 发表于 2026-7-14 10:34
用COM对象操作，直接Copy+PasteSpecial保留合并单元格。

程序集变量：Excel, 工作簿, 分表, 汇总表  

这是缺什么支持库？

斗战胜猴

复制后。再选择其他工作表。在粘贴
单元格区域 例如 A1:C1 复制第一行 一个复制3列

  

子程序名	返回值类型	公开	备 注
复制单元格			好用
参数名	类 型	参考	可空	数组	备 注
单元格区域	文本型

单元格Cells.读对象型属性 (“Range”, 单元格区域).通用方法 (“Copy”, )

子程序名	返回值类型	公开	备 注
粘贴单元格			好用
参数名	类 型	参考	可空	数组	备 注
单元格区域	文本型

单元格Cells.读对象型属性 (“Range”, 单元格区域).通用方法 (“PasteSpecial”, )

.版本 2<br /> <br /> .子程序 复制单元格, , 公开, 好用<br /> .参数 单元格区域, 文本型<br /> <br /> 单元格Cells.读对象型属性 (“Range”, 单元格区域).通用方法 (“Copy”, )<br /> <br /> <br /> .子程序 粘贴单元格, , 公开, 好用<br /> .参数 单元格区域, 文本型<br /> <br /> 单元格Cells.读对象型属性 (“Range”, 单元格区域).通用方法 (“PasteSpecial”, )

yifeng0286

斗战胜猴 发表于 2026-7-14 21:47
复制后。再选择其他工作表。在粘贴
单元格区域 例如 A1:C1 复制第一行 一个复制3列
[e=1].版本 2

哥有没有全一点的例程

斗战胜猴

yifeng0286 发表于 2026-7-15 05:42
哥有没有全一点的例程

这里有类_Excel的操作类_Excel 交互 Access数据库mdb浏览器+高级表格版https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14873299&extra=

我的yyy123

学习学习