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

bastion

不知道咋回事,自己写不出来!

qingyuan13

第12节练习题完成如下：
Sub 第1题()
Dim rg As Range, rg1 As Range
Set rg = Intersect(Sheets("第1题").UsedRange, Columns("b:d"))
Set rg1 = rg.SpecialCells(xlCellTypeConstants).EntireRow
Intersect(rg1, Columns(1)) = 1
End Sub
Sub 第2题()
Dim wb As Workbook, i As Integer
Set wb = Workbooks.Open("D:\工作\EXCEL学习\VBA80\第12集：特殊单元格定位\A.xls")
    For i = 1 To wb.Sheets.Count
        If i = 1 Then
             wb.Sheets(i).Range("a1").CurrentRegion.Copy Workbooks("练习题.xls").Sheets("第2题").Range("A1")
        Else
             wb.Sheets(i).Range(Range("a2"), Range("a2").End(xlDown)).EntireRow.Copy Workbooks("练习题.xls").Sheets("第2题").Range("a1").End(xlDown).Offset(1, 0)
        End If
    Next
End Sub

jayxbulyy

谢谢分享。。

wl13133

看看答案

yumanshi

来学习

yll6406

我不知道呀 发表于 2011-7-6 17:24
**** 本内容被作者隐藏 ****

前来学习

pptest

作业参考一下

gualei

来学习

yqy1022

cancanneed

xiaoben228

时隔多年来看，教程还是那么经典