Почему автоматический размер колонки режет текст в ячейках? - VBA

Формулировка задачи:

Простой пример:

Sub Macro1()
 
    Cells(1, 1).Select
    ActiveCell.Value = "666.01"
    Selection.NumberFormat = "@"
    Columns("A:A").EntireColumn.AutoFit
    
End Sub

Как сделать так, чтобы при автофите текст в ячейках не урезался?

Решение задачи: «Почему автоматический размер колонки режет текст в ячейках?»

textual
                            Листинг программы 
                        

                            Sub Macro1()
    With Cells(1, 1)
        .Value = "666.01"
        .NumberFormat = "@"
        '.EntireColumn.AutoFit
        .EntireColumn.ColumnWidth = Len(.Value)
    End With
End Sub
                        

Оцени полезность:

13 голосов , оценка 4 из 5

Похожие ответы