Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For J = 1 To Sheets.Count
With Sheets(J)
If .Name <> ActiveSheet.Name Then
x = Range("A65536").End(xlUp).Row
If Range("A1") = "" Then .UsedRange.Copy Cells(x, 1) Else _
.Range(.Range("A2"), .UsedRange.Cells(.UsedRange.Count)).Copy Cells(x + 1, 1)
End If
End With
Next
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub
这个可以合并,但现在有一个问题,如果我更换数据源表, 合并的汇总表刷新后只显示第一张表的内容,后面几张都无法显示,是啥原因?