用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小时内删除侵权内容。