Chức năng autofit của cell

[giaosucan]

Chào các bác
em có chèn marco vào excel

With Cells
.WrapText = True
' .EntireColumn.AutoFit
.EntireRow.AutoFit

End With

Marco này sẽ làm cho ô excel tự động căn chỉnh để fit với text nhập vào
Tuy nhiên e muốn excel nó căn chỉnh sao cho có 1 dòngtrắng ở dòng cuối cùng của text
VD như
Dùng chức năng auto fit thông thường

Line 1
Line 2
Đường biên của ô (nằm sát ngay sau Line 2)

Nếu auto fit mới
Line 1
Line 2

Đường biên của ô (cách Line 2 1 dòngtrắng)

 

[giaosucan]

Thank các bác nhiều ạ

 

[Quang_Hải]

Chào các bác
em có chèn marco vào excel


Marco này sẽ làm cho ô excel tự động căn chỉnh để fit với text nhập vào
Tuy nhiên e muốn excel nó căn chỉnh sao cho có 1 dòngtrắng ở dòng cuối cùng của text
VD như
Dùng chức năng auto fit thông thường

Line 1
Line 2
Đường biên của ô (nằm sát ngay sau Line 2)

Nếu auto fit mới
Line 1
Line 2

Đường biên của ô (cách Line 2 1 dòngtrắng)

Theo mình thì chỉ nên duyệt qua khu vực nào cần thiêt và làm thế này sẽ có thêm cái khoảng trống phía dưới

Dim cell
For Each cell In [a1:a10]
  With cell
    .WrapText = True
    .Value = .Value & ChrW(10)
  End With
Next

Với dữ liệu nhiều thì dùng mảng sẽ nhanh hơn

Dim dl, i
dl = [a1:a10]
For i = 1 To UBound(dl)
   dl(i, 1) = dl(i, 1) & ChrW(10)
Next
[a1].Resize(i - 1, 1) = dl