作者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/cn.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