合并同一个工作薄中的其余的所有的工作表
以下代码的功能是，合并同一个工作薄中的其余的所有的工作表，将其余的表的数据，全部追加到第一个工作表后面，形成完整的唯一的一个表数据。
代码如下，稍后会附上代码说明：
Dim MyCount As Integer
k = Worksheets(1).UsedRange.Rows.Count + 1
For MyTable = 2 To Worksheets.Count
For i = 5 To Worksheets(MyTable).UsedRange.Rows.Count
For j = 1 To Worksheets(MyTable).UsedRange.Columns.Count
Worksheets(1).Cel...[ 查看全文 ]
2016-02-19
标签:
