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

龙城的夜晚 · 发表于 2012-3-17 09:21

必须认真学习才有进步

two4mamba · 发表于 2012-3-18 08:54

坚持学些，顺便看看关于此类问题的解答……

mazhen6 · 发表于 2012-3-18 12:17

做不出来呀，来参考一下。

sonsen18 · 发表于 2012-3-18 17:20

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

bgkzc · 发表于 2012-3-19 20:17

参加一下高手的，请指教

araver · 发表于 2012-3-20 20:36

看看怎么帅气呢,这个多人赞扬。

chenzhi_juan · 发表于 2012-3-21 19:38

校长,我要交作业.另烦请帮忙修改前两课的作业,谢谢啦.

chenzhi_juan · 发表于 2012-3-21 19:41

[hide] Sub one()

Worksheets("第1题").Activate

Columns("b:d").SpecialCells(xlCellTypeConstants).Select

Selection.Value = 1

End Sub

Sub two()

Dim x As Integer

Workbooks.Open ThisWorkbook.Path & "/a.xls"

For x = 1 To Sheets.Count

If x = 1 Then

   ActiveWorkbook.Sheets(x).Range("a1").CurrentRegion.Copy ThisWorkbook.Sheets("第2题").Range("a1")

   Else

   ActiveWorkbook.Sheets(x).Rows("2:" & Range("a65536").End(xlUp).Row).Copy _
   ThisWorkbook.Sheets("第2题").Range("a65536").End(xlUp).Offset(1, 0)

End If

Next x

ActiveWorkbook.Close

End Sub
[hide]

poi445 · 发表于 2012-3-22 10:30

丨左手写爱灬 · 发表于 2012-3-22 18:06

csmccdh 发表于 2011-7-6 18:25
不好意思，我开始忘用回复可见了！

**** 本内容被作者隐藏 ****

学习了哦！！！！！

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