VBA80集第12集作业上交贴：非空行

liupeng150

实在想不出了

yy9635

NB

品牌主张在仄

asd1666348489

不合就抽风的喵

求看大神之作

糖醋里脊028

Sub t1()
Dim a As Range
Set a = Range("B:D").SpecialCells(xlCellTypeConstants).EntireRow
Application.Intersect(a, Range("A:A")) = 1
Application.Intersect(a, Range("A:A")).Interior.Color = 65535
End Sub

渣渣米

搞得很复杂，但勉强得出来结果了。。。。
Sub 作业12第1题()
Dim rg As Range
Set rg = Range("B:D").SpecialCells(xlCellTypeConstants).EntireRow
Application.Intersect(rg, Range("A:A")) = 1
End Sub

Sub 作业12第2题()
Dim wb As Workbook
Dim i As Integer, rg, rng As Range
If Len(Dir("C:\A.xlsx")) = 0 Then
MsgBox "文件不存在"
Else
    GoTo 100:
End If
100:
Set wb = Workbooks.Open("C:\A.xlsx")
i = wb.Worksheets.Count
If i = 1 Then
wb.Sheets(1).SaveAs "D:\B.xlsx"
wb.Close True
Exit Sub
Else
    For i = 2 To wb.Worksheets.Count
    Worksheets(i).Select
        Set rg = wb.Sheets(i).Range("D2").End(xlDown)
        Set rng = wb.Sheets(1).Range("A2").End(xlDown).Offset(1, 0)
        Range(Range("A2"), rg).Copy rng
    Next i
End If
wb.Sheets(1).Copy
Set wb1 = ActiveWorkbook
wb1.SaveAs "D:\B.xlsx"
wb1.Close True
wb.Close False
End Sub

tpp

我来看看答案

33级

看答案

33级

csmccdh 发表于 2011-7-6 18:25
不好意思，我开始忘用回复可见了！

**** 本内容被作者隐藏 ****

大神