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

ouvi

zx_wl 发表于 2011-10-1 16:32
终于做好第一题了

Sub 第一题()

不是说不能用循环吗？

VBA小萝卜

不使用循环，不知道怎么做

lim2sth

第一题：
Sub text1()
    Dim rg As Range
    Set rg = Columns("b:d").SpecialCells(xlCellTypeConstants).EntireRow
    Intersect(Columns("a:a"), rg) = 1

End Sub



第二题：
Sub t2()
    Dim wb As Workbook, x As Integer
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
    For x = 1 To Sheets.Count
        If x = 1 Then
            wb.Sheets(x).UsedRange.Copy ThisWorkbook.Sheets("第2题").Range("a1")
        Else
            wb.Sheets(x).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)
        End If
    Next x
    wb.Close False
End Sub

Lydia_Liu_1234

学习

xuhuihui2008

我想看看答案

ai_Elaine

不好意思又来看看

yowychen

have  a  look

elric1

学习答案

MLibra

学习中。。。。

lemont雪糕