PTT數位生活區 / Visual_Basic

[VBA ] Excel資料移動請益

看板Visual_Basic作者 (happylinaredog)時間7年前 (2017/09/23 01:19), 7年前編輯推噓2(2推 0噓 7→)
留言9則, 2人參與, 最新討論串1/1
小弟最近在煩惱專題 要整理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://www.ptt.cc/bbs/Visual_Basic/M.1506100779.A.8B7.html
推
09/23 04:33, , 1F
錄巨集可以看程式碼
09/23 04:33, 1F
我是錄製後再修改成迴圈喔 ※ 編輯: happylinadog (223.138.129.40), 09/23/2017 04:39:28
推
09/23 19:57, , 2F
沒修改前正常嗎？
09/23 19:57, 2F
錄製以後的程式碼執行沒問題喔 因為要把所有資料放在同一列中才用迴圈做修改 ※ 編輯: happylinadog (223.138.129.40), 09/24/2017 00:18:26
→
09/24 14:51, , 3F
選了工作表1之後沒有選回原工作表，第一圈之後變成一直
09/24 14:51, 3F
→
09/24 14:51, , 4F
在工作表1的i列複製空白的儲存格貼到i-1列。
09/24 14:51, 4F
→
09/24 14:57, , 5F
如果只要貼上值的話直接 sheets(“工作表1”).range(she
09/24 14:57, 5F
→
09/24 14:57, , 6F
ets(“工作表1”).cells(i-1,a), sheets(“工作表1”).c
09/24 14:57, 6F
謝謝妳們 問題已解決
→
09/24 14:57, , 7F
ells(i-1,a+23))= sheets(“原工作表”).range(sheets(
09/24 14:57, 7F
→
09/24 14:57, , 8F
“原工作表”).cells(i,1), sheets(“原工作表”).cells
09/24 14:57, 8F
→
09/24 14:57, , 9F
(i,23)).value 就可以了 不用一直複製貼上
09/24 14:57, 9F
※ 編輯: happylinadog (223.139.201.43), 09/24/2017 19:27:40
‣ 更多 happylinadog 的文章
文章代碼(AID): #1PnKOhYt (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 happylinadog 的文章
文章代碼(AID): #1PnKOhYt (Visual_Basic)