nnsea 发表于 2020-3-8 12:21:39

一键排版（去除文字换行，同时设置列宽、行高自适应）VBA


Sub RemoveWrapText()
Cells.Select
Selection.WrapText = False
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
End Sub
页: [1]
查看完整版本: 一键排版（去除文字换行，同时设置列宽、行高自适应）VBA