简单的合并同一工作溥下的所有工作表的方法

tomle

Sub 合并() Dim i% Sheets(1).UsedRange.Copy [a1] For i = 1 To Sheets.Count If Sheets(i).Name <> Me.Name Then Sheets(i).UsedRange.Offset(2, 0).Copy [a65536].End(xlUp).Offset(1, 0) Next i End Sub

上面是代码，其中offset(2,0)是要合并的别一张工作表的有内容部份的行和列，这里表示从第二行开始合并。