在电子表格中自动调整大小的列？

Question

我一直在VBA中使用Columns.AutoFit功能。

有没有办法有效地实现＃34;自动调整到105％的尺寸？＆＃34;

我知道我可以遍历列来执行此操作，只需将每个大小设置为当前大小1.05，但这似乎是一种不好的方法。

Answer 1

这将通过列迭代来实现：

    Dim i As Integer
    For i = 1 To 6
        ThisWorkbook.Sheets(1).Columns(i).ColumnWidth = _
             ThisWorkbook.Sheets(1).Columns(i).ColumnWidth * 1.05
    Next i

请注意，如果您使用此类策略，则需要使用ColumnWidth vs Width。