Sub 题目1()
Range("B:D").SpecialCells(xlCellTypeConstants).Value = 1
End Sub
Sub 题目2()
Dim P As String
P = ThisWorkbook.Path
ThisWorkbook.Sheets("第2题").UsedRange.Clear
Workbooks.Open (P & "\A.xls")
wk = Workbooks.Count
For sh = 1 To wk
If sh = 1 Then
Sheets(sh).UsedRange.Copy
ThisWorkbook.Worksheets("第2题").Range("A1").PasteSpecial
Else
m = ThisWorkbook.Worksheets("第2题").Range("A1").End(xlDown).Row + 1
Sheets(sh).UsedRange.Copy
ThisWorkbook.Worksheets("第2题").Range("A" & m).PasteSpecial
ThisWorkbook.Worksheets("第2题").Range("A" & m).EntireRow.Delete
End If
Next sh
ThisWorkbook.Save
ThisWorkbook.Sheets("第2题").Activate
End Sub