软件:Excel
版本:2010
我录制了一个宏 用来把'a'分页特定字段复制到'b'分页
假设内容为
4 4
5 5
6 6
7 7
在'b'结果会变成
9
10
11
12
空格以下的9~12都不会出现
请问该如何改善
录制出的结果如下
Sheets("a").Select
Range("AU2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("b").Select
Range("E2").Select
ActiveSheet.Paste
还请各位前辈赐教了 谢谢

原po要的功能是1.将4~12含空白储存格贴到b工作表的"e2"，或是2.4~12但不含空白储存格贴到b工作表的"E2"1的话要取最后有值的储存格，可用range.end(xlup)2的话可用range specialcells，以原文来看的话，type为常数，value为xlnumbers看原po回文使用1的话，https://goo.gl/AChnPL 试试以连结档案来看，出现错误1004，会于在b工作表执行该宏稍微调整一下 https://goo.gl/AChnPL 重下试试如要在任何工作表都能执行且不用worksheet.select的话则使用 https://goo.gl/n6wcKL 这样写法试试