Sub AutoFitColums()
'自动适应列宽
Cells.Select
Cells.EntireColumn.AutoFit
'row是行 column是列
'activecell指定选中的单元格
'EntireColumn 是全部列
'延伸出可以单独改变单元格的行和列
End Sub
Sub AutoFitColums()
'自动适应列宽
Cells.Select
Cells.EntireColumn.AutoFit
'row是行 column是列
'activecell指定选中的单元格
'EntireColumn 是全部列
'延伸出可以单独改变单元格的行和列
End Sub