如果用宏的话,我也试过了,但是我没法做到行数智能判断,并在粘贴后判断下一次粘贴的起始位置。。
Sub 汇总()
Sheets("湖州").Select
Range("B8:AJ407").Select
Selection.Copy
Sheets("汇总").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("绍兴").Select
Range("B8:AJ407").Select
Selection.Copy
Sheets("汇总").Select
Range("B408").Select
ActiveSheet.Paste
..........
End Sub