使用resize的VBA

我已经使用下面的代码从选定的文件中的各种Excel工作表复制和数据，并粘贴到一个单独的统一数据工作簿。

它工作正常，但我想复制和粘贴工作表中的文本，而不包括第一行（或标题）。

我想我需要调整使用的范围select。

任何想法将不胜感激。

Sub Data() Dim wb1 As Workbook Dim wb2 As Workbook Dim Sheet As Worksheet Dim PasteStart As Range Set wb1 = ActiveWorkbook Set PasteStart = [Sheet1!A2] Sheets("Sheet1").Select Cells.Select Selection.ClearContents FileToOpen = Application.GetOpenFilename _ (Title:="Please choose a Report", _ FileFilter:="(.xls),") If FileToOpen = False Then MsgBox "No File Specified.", vbExclamation, "ERROR" Exit Sub Else Set wb2 = Workbooks.Open(Filename:=FileToOpen) For Each Sheet In wb2.Sheets With Sheet.UsedRange .Copy PasteStart Set PasteStart = PasteStart.Offset(.Rows.Count) End With Next Sheet End If wb2.Close End Sub 

Answer 1

 For Each Sheet In wb2.Sheets With Sheet.UsedRange .Offset(1, 0).Resize(.Rows.Count-1, .Columns.Count).Copy PasteStart Set PasteStart = PasteStart.Offset(.Rows.Count-1) End With Next Sheet