Tự động co giãn dòng và cột

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.EntireRow.AutoFit

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.EntireColumn.AutoFit

End Sub