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

羊左 · 发表于 2018-12-26 10:37

来看答案了

dadapapa · 发表于 2018-12-26 18:53

交流交流

myreally · 发表于 2018-12-27 11:37

兰版辛苦了~~~

ljqly12 · 发表于 2018-12-28 16:35

第二题：Sub d2()

Workbooks("A").Sheets(1).UsedRange.Copy Workbooks("练习题").Sheets(2).Range("a1")
Workbooks("A").Activate
Workbooks("A").Sheets(2).Range(Range("a2"), Range("d10").End(xlUp)).Copy Workbooks("练习题").Sheets(2).Range("a1").End(xlDown).Offset(1, 0)

End Sub

首先我把代码放在了模块这里，如果填充这里不放进去，那直接在表练习题（粘贴的目的地）执行时就只能顺利执行第一条，然后报
1004错误，请问是什么情况呢，希望有大神能抽空解惑！！！！

第一题暂时没想出来

，我会努力的！

dc26310896 · 发表于 2018-12-28 21:41

学习

hycc8787 · 发表于 2018-12-28 22:32

666666666666666

2227890579 · 发表于 2018-12-29 09:26

过来学习下

alik6 · 发表于 2018-12-30 14:29

mmxs1224 · 发表于 2019-1-1 17:11

kakan

橙子君 · 发表于 2019-1-1 20:32

回复水渍

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