《vba简单》4.6.10新增功能再次调试失败，求教高手！

foreverwatson

想在《vba简单》4.6.10成绩表.xlsx实现汇总的基础上，额外再实现：汇总之前在每个待汇总的工作表A列前面插入3列空白列。所以加入了3条sht.Columns("A").Insert这样的代码。但是发现只加一条sht.Columns("A").Insert的时候，可以正常插入一列且不出错；但是加2条sht.Columns("A").Insert的时候就已经开始出错了，加3条就出错得更严重了。

但是这3条sht.Columns("A").Insert我直接写进七(9)班.xlsx这种工作表的sub里，却可以正常插入3列。搞不懂为什么，所以来这里请教高手，万分感谢！

chxw68

将sht.Columns("A:A").Insert
修改为sht.Columns("A:C").Insert

foreverwatson

chxw68 发表于 2020-2-22 18:02
将sht.Columns("A:A").Insert
修改为sht.Columns("A:C").Insert

谢谢回答！不过好像还有一点小问题。因为这个sub是同时实现2个功能，虽然现在前三列是能加进去了，但是汇总那个功能和我之前3个sht.Columns("A:A").Insert的情形很像，也受到了影响。可以再帮看下吗？谢谢！

foreverwatson

求教高手！

chxw68

foreverwatson 发表于 2020-2-25 17:03
求教高手！

这个问题不是你这么解决的。

foreverwatson

求教高手！