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

魚。。

交作业

Sub 填充()
    Dim rng As Range
    Set rng = Intersect([b:d].SpecialCells(xlCellTypeConstants).EntireRow, [a:a])
    Columns(1).ClearContents
    rng = 1
End Sub

Sub 合并数据()
    Dim sht As Worksheet, wb As Workbook, Msht As Worksheet
    Application.ScreenUpdating = False
        Set Msht = Sheets("第2题")
        Msht.[a2:d65536].ClearContents
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
            For Each sht In wb.Sheets
                sht.Range("a2:d" & sht.UsedRange.Rows.Count).Copy
                Msht.Cells(Msht.[a1].CurrentRegion.Rows.Count + 1, 1).PasteSpecial xlPasteValues
            Next
        wb.Close False
    Application.ScreenUpdating = True
End Sub

苏小菲

学习一下

you3694

好好学习下了

18833055893

每日一学，天天向上

李一哲8

6666666666666666666

ynzsvt

八年抗战后来看看你的答案

看月亮22

现在正式学习VBA，请各位多多帮助

skysc

学习一下

heshufeng1990

新手来学习学习

麻麻麻麻麻麻子

学习学习