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

vikings0316

学习学习

这个女人叫小美

Sub 第一题()
Dim rg As Range
Set rg = Range("B:D").SpecialCells(xlCellTypeConstants).EntireRow
Intersect(Columns(1), rg) = 1
End Sub
Sub 第二题()
Dim i
Dim w As Workbook, w1 As Worksheet
Set w1 = ThisWorkbook.Sheets(2)
Set w = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
w.Sheets(1).UsedRange.Copy w1.Range("a1")
For i = 2 To w.Sheets.Count
    w.Sheets(i).UsedRange.Offset(1, 0).Copy w1.Range("a65536").End(xlUp).Offset(1, 0)
Next i
w.Close 0
End Sub

asdf19880718

学习下

noob1015

学习学习

xjnvq

考古

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

来学习