Excel VB code 2003快速合並多個Excel工作表的代碼說明

申請。ScreenUpdating = False

對於j = 1至張。從第壹張表數到最後壹張表。

如果工作表(j)。名稱& lt& gtActiveSheet。如果表名不等於當前工作表，則為“Name Then”。

X =範圍(“a65536”)。結束(xlup)。row+1 '當前* * *工作表中的第壹個空白行。

床單(j)。使用範圍。copycells (x，1)'從第壹個空行開始粘貼第I個工作表的有用區域。

如果…就會結束

然後

範圍(" B1 ")。挑選

申請。ScreenUpdating = True

MsgBox "當前工作簿中的所有工作表已被合並！"，vbInformation，“提示”

末端接頭

我不需要解釋其他的。