以下代码的功能是,合并同一个工作薄中的其余的所有的工作表,将其余的表的数据,全部追加到第一个工作表后面,形成完整的唯一的一个表数据。 代码如下,稍后会附上代码说明: 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.Co...[ 查看全文 ]