用VBA合并多表數據時，合并區域列數不定怎么辦

用VBA合并多表數據時，合并區域列數不定怎么辦

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

要解決本例中的問題，可以將過程改寫為：

Sub 合并多表數據() Dim EndRow As Long, DataArr As Variant, ToRng As Range Dim ToSht As Worksheet, Sht As Worksheet Set ToSht = Worksheets("匯總結果") '變量ToSht是保存匯總結果的工作表 ToSht.Rows("2:1048576").Clear '清除表中原有數據 Dim EndCol As Long '保存合并區域的最后一列列號 For Each Sht In Worksheets If Sht.Name <> ToSht.Name Then '排除保存匯總結果的工作表 EndRow = Sht.Range("A1048576").End(xlUp).Row EndCol = Sht.UsedRange.Columns.Count '最后一列列號 DataArr = Sht.Range(Sht.Cells(2, "A"), Sht.Cells(EndRow, EndRow)).Value Set ToRng = ToSht.Range("A1048576").End(xlUp).Offset(1, 0) ToRng.Resize(UBound(DataArr, 1), EndCol) = DataArr End If Next ShtEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。