Sub 第一种()
Dim x As Integer, wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
With ThisWorkbook.Sheets("第2题")
For x = 1 To wb.Sheets.Count
If x = 1 Then
wb.Sheets(x).UsedRange.Copy .Range("A1")
Else
wb.Sheets(x).UsedRange.Offset(1, 0).Copy .Range("A" & .[A65536].End(xlUp).Row + 1)
End If
Next x
wb.Close True
End With
End Sub
Sub 第二种()
Dim i As Integer, wbk As Workbook
Set wbk = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
With ThisWorkbook.Sheets("第2题")
For i = 1 To wbk.Sheets.Count
If i = 1 Then
wbk.Sheets(i).UsedRange.Copy .Range("A1")
Else
wbk.Sheets(i).UsedRange.Offset(1, 0).Copy .Range("A" & .[A65536].End(xlUp).Row + 1)
End If
Next i
wbk.Close True
End With
End Sub