怎么能快速合并和分割excel文件

可以使用下面代码，判断数据行是否为空的条件可以自己调节
各位兄弟请注意 表头不要复制了，所以需要确定数据的起始位置

Sub 合并sheets()
n = 6 '源表个数
nstart = 8 '每个单表数据的起始行数
k = nstart '目标表的行标
For i = 1 To n
irow = nstart '行标
While Sheets(i).Cells(irow + 1, 2) <> "" '以第2列数据为结束标示,确定源表的行数
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 i
End Sub
有问题q我80871835