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

胱 · 发表于 2019-1-12 21:04

Sub 练习1()
Columns("a").Clear
Intersect(Columns("A"), Columns("B:d").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub
Sub 练习2()
Dim wb As Workbook
Dim x As Integer
Set wb = Workbooks.Open(ThisWorkbook.Path & "/A.xls")
ThisWorkbook.Sheets("第2题").UsedRange.Clear
For x = 1 To wb.Sheets.Count
If x = 1 Then
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("第2题").Range("a1")
Else
wb.Sheets(x).UsedRange.Offset(1, 0).Copy ThisWorkbook.Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)
End If
Next x
End Sub

yzha7788 · 发表于 2019-1-13 12:49

匿名 *发表于 2019-1-16 13:04* · 发表于 2019-1-16 13:04

hlly

匿名 *发表于 2019-1-16 16:39* · 发表于 2019-1-16 16:39

头斗想大了

匿名 *发表于 2019-1-16 16:39* · 发表于 2019-1-16 16:39

看看先....

liu0537113 · 发表于 2019-1-17 14:40

12集第二题不会做了……

火上飘 · 发表于 2019-1-20 23:44

观摩大神解答

huhongquan · 发表于 2019-1-21 22:23

xiexie

匿名 *发表于 2019-1-22 23:45* · 发表于 2019-1-22 23:45

学习

匿名 *发表于 2019-1-22 23:46* · 发表于 2019-1-22 23:46

怎么还看不见

		自动登录	找回密码
密码			注册