Line spacing trong excel (1 người xem)

[giaosucan]

Chào các bác em đang gặp bài toán này ạ
Em có 1 cell gồm nhiều dòng
Line 1
Line 2
Line 3

Có cách nào để các dòng có thể giãn cách với số dòng mình chọn ko ạ
VD chọn chọn line spacing là 2 thì hiện ra như ở dưới

Line 1

Line 2

Line 3

Thank các bác nhiều ạ

 

[Hoàng Trọng Nghĩa]

Dùng hàm SUBSTITUTE nhé

=SUBSTITUTE(A1;"
";"

")

 

[giaosucan]

Công thức của bác bị lỗi bác ạ

 

[Quang_Hải]

Công thức của bác bị lỗi bác ạ

Mình đoán là bạn chưa thay cái dấu ; thành dấu , theo đúng hệ thống của máy tính bạn

Nếu dữ liệu của bạn là cái dấu Alt+Enter thì chắc phải thế này. Nếu đúng thì bạn có thể thay số 2 bằng 1 số khác

=SUBSTITUTE(A1,CHAR(10),REPT(CHAR(10),2))

Hoặc dùng hàm thế này để có thể thay đổi khoảng cách tùy ý

Function spacing(cell As Range, khoangcach As Byte)
With Application
  spacing = .Substitute(cell, ChrW(10), .Rept(ChrW(10), khoangcach))
End With
End Function

=spacing(A1,2)

 

[giaosucan]

Hi bác e có thử hàm này nhưng hình như nó ko thêm dòng trắng mà delete hết dòng trắng đi
như thế nay
Line 1
Line 2

Chuyển thành Line 1Line 2

 

[ndu96081631]

Mình đoán là bạn chưa thay cái dấu ; thành dấu , theo đúng hệ thống của máy tính bạn

Nếu dữ liệu của bạn là cái dấu Alt+Enter thì chắc phải thế này. Nếu đúng thì bạn có thể thay số 2 bằng 1 số khác

=SUBSTITUTE(A1,CHAR(10),REPT(CHAR(10),2))

Hoặc dùng hàm thế này để có thể thay đổi khoảng cách tùy ý

Function spacing(cell As Range, khoangcach As Byte)
With Application
  spacing = .Substitute(cell, ChrW(10), .Rept(ChrW(10), khoangcach))
End With
End Function

=spacing(A1,2)

Trời ơi.. cái code VBA
!!!
Trong VBA thì:
- Hàm Replace sẽ gần tương đương với SUSTITUTE trên bảng tính
- Hàm String sẽ gần tương đương với hàm REPT trên bảng tính
- vbLf sẽ tương đương với CHAR(10) trên bảng tính
Thành ra, chẳng ai viết "kỳ cục" thế kia cả
Viết cho ra cái "hồn" của VB thì phải vầy:
spacing = Replace(cell.Value, vbLf, String(khoangcach, vbLf))
Ẹc... Ẹc...
----------------------

Hi bác e có thử hàm này nhưng hình như nó ko thêm dòng trắng mà delete hết dòng trắng đi
như thế nay
Line 1
Line 2

Chuyển thành Line 1Line 2

Phải Format cho cell thành Wrap Text mới được bạn à