excel中如何实现从某行开始合并N个相同格式的表格

[复制链接]
查看11 | 回复1 | 2011-12-21 10:18:26 | 显示全部楼层 |阅读模式
Sub 合并()n = Application.InputBox("请输入数据行开始的行号", "提示", 2, Type:=1)With Sheets("汇总表")For Each sh In SheetsIf sh.Name.Name Then
sh.[a1].CurrentRegion.Offset(n-1, 0).Copy .[a65536].End(3).Offset(1, 0)End IfNextEnd WithEnd Sub...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行