Excel 使用VBA VBA复制粘贴粘贴和保存，并自动运行VBA代码

点击联系发帖人 时间：2019-01-28 10:05

VBA复制粘贴

遇到断行的问题,哪些行需要VBA复制粘贴呢
要由你来规定一套办法 ,就像一楼那样的方案！才能修改代码来实现它

向大侠致歉，本人手抖在单元格x39中误打了一个58我已经把58删除了。

思路对于大侠而言很简单举个例子对于样表二就是：

1、x列中数字一定是从小到大排列。

2、在x列中寻找最小值对于样表二就是28，獲取28的行号4接下来再寻找除去28外的最小值，即29获取29的行号6，

VBA复制粘贴的起始行是4+1VBA复制粘贴的终结行是6-1，所以要VBA复制粘贴的部分为：起始行第5行终结行第5行。
下面获取x列中除28、29外的最小值30,(已经寻找过的x列数值全部排除之！！！！因为28和29已经寻找过，就排除在外）
如果28的行号为4, 29行号为5,即VBA复制粘贴范围为起始行4+1行终结行5-1行，即相邻则无须VBA复制粘贴

依次类推往下寻找：当寻找至38时，此时38是第17行到表格朂末行的最小值获取38的行号17，接下来再寻找除去已经寻找过的x列数值的最小值为49获取49行号为23，VBA复制粘贴的起始行是17+1VBA复制粘贴的终结荇为49-1,所以要VBA复制粘贴的部分为：起始行第18行，终结行第48行

如果x列中全部数字恰好取完，则执行如上操作即可

如果x列中只取剩一个数字，这个数字在样表二中恰好为57（在其它样表中可能不是57，因为当"七、其他费用b计划"没有投资额时也有可能会被删除，所以这最后一个數可能为55、53、32…等任一个）,这时获取57的行号为34，VBA复制粘贴起始行第34行VBA复制粘贴终结行为34+15行，因为明细项不会超过15行

}

天天发财游戏网