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

huajiangning · 发表于 2017-7-23 16:14

学习学习

zyingqiao · 发表于 2017-7-23 16:17

学习

wf562748385 · 发表于 2017-7-23 19:49

借鉴上面大佬的程序后，自己编的程序：
Sub t1()
Columns.ClearContents
Application.Intersect(Columns(1), Rows("2:10").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub
Sub t2()
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题").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub

flyingring1016 · 发表于 2017-7-24 22:00

hwg529 · 发表于 2017-7-25 17:32

怎么样

如此无情X · 发表于 2017-7-26 07:15

慢慢学一下了

卢卡卢卡卢卡斯 · 发表于 2017-7-26 21:33

写出来运行不了

sunnybest099 · 发表于 2017-7-29 19:44

想学习，过来看看

sunnybest099 · 发表于 2017-7-29 19:44

想学习，过来看看

Get一点 · 发表于 2017-7-30 18:13

mark一下

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