Question

合并表头相同不同sheet的EXCEL

Sub 合并sheets() n = 39 '源表个数，根据需要修改！ nstart = 3 '每个单表数据的起始行数，根据需要修改！ k = nstart '目标表的行标 For i = 1 To n irow = nstart '行标 While Sheets(i).Cells(irow + 1, 7) <> "" '后面个1以第1列数据为结束标示,确定源表的行数，根据需要修改！ irow = irow + 1 Wend Sheets(i).Rows(nstart & ":" & irow).Copy '复制源数据行 Sheets(n + 1).Activate Sheets(n + 1).Cells(k, 1).Select ActiveSheet.Paste '粘贴数据 k = k + irow - nstart + 1 Next iEnd Sub

这个公式完全不会用，一直在提示下届什么的。到底如何是好啊？一共39个SHEET，从第三行开始合并，每个表到A列（第一列）没数据停止。咋整啊。。。

Answer 1

点我的名字 在我自己的文库里 有现成的模板，可以合并工作表，也可以将某几行摘出来 合并到一张表里（具体哪些行 自己输入行号就可以），当然合并工作簿 也是可以的
你这个情况 用的时候 起始行输入3 截止行 你视情况而定，如果你的表行数长短不一，你就输入最长的那个，合并完成后 排一下序就可以把没数据的空行给 踢掉

你试试吧……免费下载的，好用的话 给个好评就 满足了

Answer 2

这个是复制到代码里的。