原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 这样写法试试