Question

VBA如何合并同工作簿里面的多张工作表（动态判断表头位置，模板会变化）

工作簿里第一个表是“※汇总”，第二个是“※模板”，后面不带“※”符号的表都是按模板格式填写的记录，想请教VBA如何合并多张工作表里面的记录（动态判断表头位置，模板会变化）？多谢。





Answer 1

Sub 合并子表各数据()
For i = 2 To Sheets.Count
'上句假设sheet1为汇总表，如果不是则要for i = 1 to sheets.count，然后判断i值
m = Sheets(i).Range("K65536").End(xlUp).Row
Sheets(i).Range("K18:O" & m).Copy
n = Sheet1.Range("K65536").End(xlUp).Row
Sheet1.Cells(n + 1, 11).Select
'选择汇总表K列第一个为空单元格
ActiveSheet.Paste
Next
End Sub

Answer 2

可以啊，需要文档