VBA 编程常见实例(2)

5、 将含有多个sheet的工作表内容信息汇总至一个sheet中

Combine()

Dim J As Integer

On Error Resume Next Sheets(1).Select Worksheets.Add

Sheets(1).Name = \Sheets(2).Activate

Range(\

Selection.Copy Destination:=Sheets(1).Range(\For J = 2 To Sheets.Count Sheets(J).Activate Range(\

Selection.CurrentRegion.Select

Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

Selection.Copy Destination:=Sheets(1).Range(\Next End Sub

Sub