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

yu20078 · 发表于 2012-2-24 09:21

感觉得不到要领,只要前来学习了

1982zyh · 发表于 2012-2-25 11:19

不会做呀，来看看

晃晃悠悠517 · 发表于 2012-2-25 16:15

成为高手的必经之路

hately · 发表于 2012-2-26 10:30

本帖最后由 hately 于 2012-2-26 10:33 编辑

Sub 第一题()
Intersect(Columns(1), Range("b:d").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub
Sub 第二题()
Workbooks.Open ("F:\vba80\VBA80第12集\A.xls")
With ActiveWorkbook
For n = 1 To Sheets.Count
Sheets(n).UsedRange.Offset(1, 0).Copy Workbooks("第12集练习题").Sheets("第2题").Range("a65535").End(xlUp).Offset(1, 0)
Next
End With
Workbooks("A").Close
End Sub

复制代码

到底回复可见的选项在哪？？？

xlzstc0123 · 发表于 2012-2-26 19:16

我想反选，但是技术不够

忧伤还是快乐 · 发表于 2012-2-27 14:45

神说要有答案，所以我就看到了答案，

晃晃悠悠517 · 发表于 2012-2-28 11:11

一天一天的成长，坚持

churonghua · 发表于 2012-3-1 16:33

个电饭锅的风格大方

bestboy7 · 发表于 2012-3-1 17:44

的答案上交贴子，前20个正确答案奖励20金币

taizen · 发表于 2012-3-3 14:41

刚来，准备学习一下

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