1、加入msgbox,能否进入执行红色代码?
2、如果sheet.cols()设置样式不行,那你试试sheet(r,cn).style这样设置样式。
3、合并单元格,参考 http://www.foxtable.com/webhelp/scr/1153.htm
设置字体大小,给单元格设置一个新的style即可。