|
本帖最后由 scsys1 于 2011-9-17 17:29 编辑
- Sub 第1题()
- Intersect(Columns(1), Range("B:D").SpecialCells(xlCellTypeConstants).EntireRow) = 1
- End Sub
- Sub 第2题()
- Dim AK As Workbook
- Dim arow As Integer
- Dim acolumn As Integer
- Dim trow As Integer
- Dim i As Integer
- Application.ScreenUpdating = False
- Set AK = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
- For i = 1 To AK.Sheets.Count
- arow = AK.Sheets(i).Range("a65536").End(xlUp).Row
- acolumn = AK.Sheets(i).Range("iv1").End(xlToLeft).Column
- If i = 1 Then
- AK.Sheets(i).Range("A1").Resize(arow, acolumn).Copy ThisWorkbook.Sheets(2).Range("A1")
- Else
- trow = ThisWorkbook.Sheets(2).Range("a65536").End(xlUp).Row + 1
- AK.Sheets(i).Range("a2").Resize(arow - 1, acolumn).Copy ThisWorkbook.Sheets(2).Range("a" & trow)
- End If
- Next
- AK.Close False
- Application.ScreenUpdating = True
- MsgBox "合并完成,请查看!", 64, "提示"
- End Sub
复制代码 |
|