()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <>ActiveSheet.Name Then
X =Range('A65536').End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X,1)
End If
Next
Range('B1').Select
Application.ScreenUpdating = True
MsgBox '
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
