[問題] vba 自動將後行移動到前行下方

看板Office作者 (kris4588)時間6年前 (2019/06/05 01:50), 編輯推噓0(0013)
留言13則, 1人參與, 6年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:excel 版本:2016 因為分析軟體的要求得將共366個individual下方的數字移動到individual 1的下方成直 式排列,慢慢複製貼上似乎是比較沒建設性的方法,但研究了一個晚上的VBA還是研究不 出來,懇請鄉民指點迷津。 https://i.imgur.com/cG4Exw5.jpg
-- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.233.102.204 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1559670633.A.CCF.html

06/05 07:07, 6年前 , 1F
迴圈for..next,有366個(如包含individual 1)的話起始1(或
06/05 07:07, 1F

06/05 07:07, 6年前 , 2F
0),終止355(0的話354),range.offset(,迴圈變數).copy,
06/05 07:07, 2F

06/05 07:07, 6年前 , 3F
起始1的話range以f2:f15,0的話g2:g15,range.copy
06/05 07:07, 3F

06/05 07:07, 6年前 , 4F
destination,destination方面要取得f欄最後一筆有值的儲
06/05 07:07, 4F

06/05 07:07, 6年前 , 5F
存格,以range.end或range.find,要取得列號前述range.row
06/05 07:07, 5F

06/05 07:07, 6年前 , 6F
,連續資料的話工作表函數counta或count(數字),貼上儲存
06/05 07:07, 6F

06/05 07:07, 6年前 , 7F
格為最後一筆有值儲存格的下方一個儲存格,以range.offset
06/05 07:07, 7F

06/05 07:07, 6年前 , 8F
或列號+1
06/05 07:07, 8F

06/05 07:12, 6年前 , 9F
複製貼上不帶格式的話,也可range = range.value
06/05 07:12, 9F

06/05 07:14, 6年前 , 10F
取得最後一筆有值列號,實際如內文連結,每欄為固定列數的
06/05 07:14, 10F

06/05 07:15, 6年前 , 11F
話,也可迴圈變數*14+1
06/05 07:15, 11F

06/05 07:19, 6年前 , 12F
以內文連接固定列數的話,公式為
06/05 07:19, 12F

06/05 07:19, 6年前 , 13F
文章代碼(AID): #1SzgzfpF (Office)
文章代碼(AID): #1SzgzfpF (Office)