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

bolatu2003

看看

刘惠

祖国的小乌龟

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

学习。。。

如果蜗牛有爱情

Sub t1()
Intersect(Columns("A"), Range("B:D").SpecialCells _
(xlCellTypeConstants, 23).EntireRow).Value = 1
End Sub

如果蜗牛有爱情

Sub t2()
Dim wb As Workbook
Dim x As Integer
Path = Application.ThisWorkbook.Path
Set wb = Workbooks.Open(FileName:=Path & "/A.xls")
For x = 1 To wb.Sheets.Count
    If x = 1 Then
        wb.Sheets(x).Range("a1").CurrentRegion.Copy _
        ThisWorkbook.Sheets(2).Range("a1")
        Else
        wb.Sheets(x).Range("a1").CurrentRegion.Offset(1, 0).Copy _
        ThisWorkbook.Sheets(2). _
        Range("a65536").End(xlUp).Offset(1, 0)
        End If
    Next

   wb.Close
   
End Sub

mopstudyexcel

YuYuting

持续学习！

菜菜想学

学习学习

海洋饼干

现在学晚不晚，都2019了

18643155619

看看答案