(若是和其他不同软件互动之问题 请记得一并填写)
软件:excel
版本:2016
因为分析软件的要求得将共366个individual下方的数字移动到individual 1的下方成直
式排列，慢慢复制贴上似乎是比较没建设性的方法，但研究了一个晚上的VBA还是研究不
出来，恳请乡民指点迷津。
https://i.imgur.com/cG4Exw5.jpg

循环for..next，有366个(如包含individual 1)的话起始1(或0)，终止355(0的话354)，range.offset(,循环变量).copy，起始1的话range以f2:f15，0的话g2:g15，range.copydestination，destination方面要取得f栏最后一笔有值的储存格，以range.end或range.find，要取得列号前述range.row，连续资料的话工作表函数counta或count(数字)，贴上储存格为最后一笔有值储存格的下方一个储存格，以range.offset或列号+1复制贴上不带格式的话，也可range = range.value取得最后一笔有值列号，实际如内文连结，每栏为固定列数的话，也可循环变量*14+1以内文连接固定列数的话，公式为https://i.imgur.com/73evzbX.jpg