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

googlegood2011

学习

bartonsk

顶，啊

yulanxiao123

cjlkdjflasfjadsfaadfa

g463129482

想知道答案

sun2842451

题目1:
B:D列各行单元格,如果为非空,则在该行A列填充数字1,如A列所示,要求:不得使用循环
Sub test()
Dim rg As Range
Dim rg0 As Range
Dim rg1 As Range
Set rg = Range("B:D").SpecialCells(2).EntireRow
Set rg0 = Range("A:A")
Set rg1 = Intersect(rg,rg0)
rg1.Value = 1
End Sub


题目2:
打开本路径下的A.Xls文件,并把文件中的所有工作表的明细数据合并到本表中,上下排列。注: A.xls文件中工作表数量和明细表行数和列数均不定.但各个工作表中的行列数量相同。

Sub test1()
Dim wb As Workbook
Dim wb0 As Workbook
Dim rg As Range
Dim rg0 As Range
Dim i As Integer
Dim j As Integer
j = 1
Set wb = Workbooks.Open("E:\A.xls")
Set wb0 = Workbooks("第12集练习题.xls")
i = wb.Sheets.Count
For j = 1 To i
    If j = 1 Then
       wb.Sheets(1).UsedRange.Copy wb0.Sheets("第2题").Range("a1")
    Else
       Set rg = wb.Sheets(i).Range("a1").End(xlDown)
        Set rg0 = rg.End(xlToRight)
        wb.Sheets(i).Range("a2",rg0).Copy wb0.Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)
    End If
Next j
wb.Close False
End Sub

lyq2018

鲁肃

大部分人乱写的答案

tonyalfonso

想不出

鲁肃

第二题最简洁答案：
Sub t1()
Dim i As Integer, wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
For i = 1 To wb.Sheets.Count
wb.Sheets(i).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets(2).Range("a65535").End(xlUp).Offset(1, 0)
Next i
wb.Close True
End Sub

jujuwin2003

我只是来看答案的