作者happylinadog (happylinaredog)
看板Visual_Basic
标题[VBA ] Excel资料移动请益
时间Sat Sep 23 01:19:35 2017
小弟最近在烦恼专题
要整理EXCEL大量资料於是用VBA写了一段程式 如图
http://i.imgur.com/NfENOcL.jpg
要将原本工作表的资料以横序的方式搬移到工作表一
http://i.imgur.com/ffGJTkc.jpg
http://i.imgur.com/ymi65e1.jpg
上图是预计的资料呈现
但程式执行却只有跑储存格而资料没有到工作表一
还请各位只教
图中注解是後续有其他程式码因此先做注解
谢谢
-----
Sent from JPTT on my HTC_M8x.
--
http://imgur.com/a/gnNc6
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.138.253.57
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1506100779.A.8B7.html
1F：推 johnpage: 录巨集可以看程式码 09/23 04:33
我是录制後再修改成回圈喔
※ 编辑: happylinadog (223.138.129.40), 09/23/2017 04:39:28
2F：推 johnpage: 没修改前正常吗？ 09/23 19:57
录制以後的程式码执行没问题喔
因为要把所有资料放在同一列中才用回圈做修改
※ 编辑: happylinadog (223.138.129.40), 09/24/2017 00:18:26
3F：→ newton41: 选了工作表1之後没有选回原工作表，第一圈之後变成一直 09/24 14:51
4F：→ newton41: 在工作表1的i列复制空白的储存格贴到i-1列。 09/24 14:51
5F：→ newton41: 如果只要贴上值的话直接 sheets(“工作表1”).range(she 09/24 14:57
6F：→ newton41: ets(“工作表1”).cells(i-1,a), sheets(“工作表1”).c 09/24 14:57
谢谢你们 问题已解决
7F：→ newton41: ells(i-1,a+23))= sheets(“原工作表”).range(sheets( 09/24 14:57
8F：→ newton41: “原工作表”).cells(i,1), sheets(“原工作表”).cells 09/24 14:57
9F：→ newton41: (i,23)).value 就可以了 不用一直复制贴上 09/24 14:57
※ 编辑: happylinadog (223.139.201.43), 09/24/2017 19:27:40