如何检测列是否包含值不适合它的宽度？

Question

我需要检测列是否有一些需要更多宽度的值（在网格中显示为######）

Answer 1

解决方案取决于如何将数据输入单元格..以下内容可能会让您入门：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Columns.AutoFit
End Sub

或影响一张纸 - 例如在宏中 - 您可以更改它以通过工作表编号/名称

Sub SetColWidth()
    Sheets(1).Columns.AutoFit
End Sub

或浏览所有表格并立即设置：

Sub SetColWidthAllSheets()
    Dim s As Worksheet
    Application.ScreenUpdating = False
    For Each s In Sheets
        s.Columns.AutoFit
    Next
    Application.ScreenUpdating = True
    End Sub

希望这有帮助

编辑：在上面的代码中添加了ScreenUpdating。