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

zww088 · 发表于 2012-3-4 09:49

看看他们的作业

zjlj2003 · 发表于 2012-3-5 16:58

看看答案初学者

hjpamn · 发表于 2012-3-5 17:49

{:011:}{:011:}{:091:}

xflying322 · 发表于 2012-3-8 18:19

坚持学习学习再学习

神七飞天 · 发表于 2012-3-10 16:50

我想了半天不知从何下手

ztccsj · 发表于 2012-3-10 23:24

必须学习，继续学习

ztccsj · 发表于 2012-3-11 00:08

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

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

with 在这里是什么意思

lonson · 发表于 2012-3-12 15:07

看看答案啊，抄袭一下

丨左手写爱灬 · 发表于 2012-3-13 17:44

来寻求答案的！！！！

colorto · 发表于 2012-3-16 22:58

第一题不用循环不会做
第二题答案如下，请老师批改

Public Sub dierti()
Dim mypath As String
mypath = ActiveWorkbook.Path
Set wb1 = Workbooks("第12集练习题")
Set wb2 = Workbooks.Open(mypath & "\" & "A.xls")
wb1.Sheets(2).Cells.ClearContents
wb2.Sheets(1).Select
wb2.Sheets(1).UsedRange.Copy wb1.Sheets(2).Range("a1")

For i = 2 To wb2.Sheets.Count

j = Sheets(i).UsedRange.Rows.Count
k = Sheets(i).UsedRange.Columns.Count
Sheets(i).UsedRange.Offset(1, 0).Resize(j - 1, k).Copy wb1.Sheets(2).Range("a65536").End(xlUp).Offset(1, 0)
Next i

wb2.Close False

End Sub

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