EXCEL代码高手请进。加自适应宽度的代码！

晕，这代码是我写的啊~ 你是sheet1表，要设置宽度自适应。 把最后两句代码： Set dic = Nothing End Sub 改成： Set dic = Nothing Sheets(sheet1).Columns.AutoFit End Sub 就OK啦~