如何保持Cell IndentLevel和AutoFit RowHeight - 同时？

Question

再一次关于单元格格式化

cell.EntireRow.WrapText = True
cell.EntireRow.AutoFit
cell.IndentLevel = 1   ' AutoFit is discarded  

或反向

cell.IndentLevel = 1
cell.EntireRow.WrapText = True
cell.EntireRow.AutoFit    ' IndentLevel is discarded

那么，是否可以将单元格IndentLevel和RowHeight AutoFit保持在一起？

Answer 1

您可能想要同时设置RowHeight和ColumnWidth。

出于某种原因，如果列宽开始超出您的需要，似乎列自动适合，所以试试这个

With cell
    .WrapText = True
    .IndentLevel = 1
    .ColumnWidth = 255
    .EntireRow.AutoFit
    .EntireColumn.AutoFit
End With