|
Sub 第1题()
Dim rr As Range, rc As Range
Set rr = Workbooks("第12集练习题.xls").Application.Sheets("第1题").Application.Columns("b:d").SpecialCells(xlCellTypeConstants).EntireRow
Set rc = Workbooks("第12集练习题.xls").Application.Sheets("第1题").Application.Columns("a")
Application.Intersect(rr, rc) = 1
End Sub
Sub 第2题()
Dim wb As Workbook, x As Integer, yrg As Range, mrrg As Range, mrcg As Range
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
For x = 1 To wb.Sheets.Count
Set yrg = Sheets(x & "月").UsedRange
yrg.Copy Destination:=Workbooks("第12集练习题.xls").Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)
Next x
wb.Close
End Sub |
|