作者kris4588 (kris4588)
看板Office
標題[問題] vba 自動將後行移動到前行下方
時間Wed Jun 5 01:50:31 2019
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel
版本:2016
因為分析軟體的要求得將共366個individual下方的數字移動到individual 1的下方成直
式排列，慢慢複製貼上似乎是比較沒建設性的方法，但研究了一個晚上的VBA還是研究不
出來，懇請鄉民指點迷津。
https://i.imgur.com/cG4Exw5.jpg
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.233.102.204 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1559670633.A.CCF.html
1F：→ soyoso: 迴圈for..next，有366個(如包含individual 1)的話起始1(或 06/05 07:07
2F：→ soyoso: 0)，終止355(0的話354)，range.offset(,迴圈變數).copy， 06/05 07:07
3F：→ soyoso: 起始1的話range以f2:f15，0的話g2:g15，range.copy 06/05 07:07
4F：→ soyoso: destination，destination方面要取得f欄最後一筆有值的儲 06/05 07:07
5F：→ soyoso: 存格，以range.end或range.find，要取得列號前述range.row 06/05 07:07
6F：→ soyoso: ，連續資料的話工作表函數counta或count(數字)，貼上儲存 06/05 07:07
7F：→ soyoso: 格為最後一筆有值儲存格的下方一個儲存格，以range.offset 06/05 07:07
8F：→ soyoso: 或列號+1 06/05 07:07
9F：→ soyoso: 複製貼上不帶格式的話，也可range = range.value 06/05 07:12
10F：→ soyoso: 取得最後一筆有值列號，實際如內文連結，每欄為固定列數的 06/05 07:14
11F：→ soyoso: 話，也可迴圈變數*14+1 06/05 07:15
12F：→ soyoso: 以內文連接固定列數的話，公式為 06/05 07:19