EXCEL相关问题咨询

Question

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

这个可以合并，但现在有一个问题，如果我更换数据源表， 合并的汇总表刷新后只显示第一张表的内容，后面几张都无法显示，是啥原因？

Answer 1

如果我更换数据源表是啥意思？？
这个代码好象是把非活动工作表的内容复制到活动工作表后尾部。
所以，保证目标表是当前活动工作表再启动宏。

Answer 2

筛选解决不了的，需要增加辅助列来解决。比如h2输入公式 =IF(B2="",H1,B2) 然后下拉并筛选H列来解决问题。

Answer 3

应该是别删别拷贝，删与拷贝不是同一个表了呗