是的，有合并单元格，代码运行结果，会不如意，问题在选中上，只要选中，有合并单元格的，选区就会扩大，所以，不要选中操作，直接用一个绝对不会合并的单元格，整列插入，即可，如：
Public Sub 插入列() Range("A65536").EntireColumn.InsertEnd Sub
