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

tiagozhou886 · 发表于 2012-1-9 13:27

bucuobucuobucuobucuobucuobucuobucuo

tiagozhou886 · 发表于 2012-1-10 20:07

bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

lisdxy · 发表于 2012-1-11 14:44

游客，如果您要查看本帖隐藏内容请回复

peng_1103 · 发表于 2012-1-11 16:20

学习学习！校长辛苦了。

qingfengfeixin · 发表于 2012-1-12 00:39

本帖最后由 qingfengfeixin 于 2012-1-12 00:55 编辑

Sub t1()
Intersect(.Range("a:a"), .Range("b:d").SpecialCells(xlCellTypeConstants).EntireRow) = 1
End Sub

Sub t2()
Dim x As Integer
opean myworkbook.path&"/a.xls"
For x = 1 To Sheets.Count
Sheets(x).UsedRange.Select.Copy
wb.sheeets(2).Range("a65535").End(xlUp).Offset(1, 0).Paste
Next

End Sub

从从容容 · 发表于 2012-1-15 18:04

向高手们学习。努力向前。

linch92413 · 发表于 2012-1-16 16:04

卡壳了，来学习一下

linch92413 · 发表于 2012-1-16 17:27

E05:linch92413交作业，参考了别人的答案后做出来的

游客，如果您要查看本帖隐藏内容请回复

zwy15754205 · 发表于 2012-1-19 20:54

kankan xuexue

vbamaster · 发表于 2012-2-1 15:00

游客，如果您要查看本帖隐藏内容请回复

兰版辛苦了！

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