Ngắt dòng trong ô (1 người xem)

[9r33np34c3]

Chào mọi người.

Mình có 1 bảng tính khoảng 1500 dòng, trong đó cột nội dung song ngữ phân cách bằng dấu "/" (cái này do hồi trước mình joint lại từ 2 dòng để dễ lọc). Mọi người cho mình hỏi là có cách nào để tự động ngắt đoạn text sau dấu "/" xuống dòng trong cùng 1 ô hay không. Ví dụ: Ô A1: Bêtông móng… / Ready mixed concrete for foundation... thì ngắt đoạn tiếng Anh xuống dòng trong cùng ô đó.

Cảm ơn.

 

[befaint]

1:

B2=SUBSTITUTE(A2,"/",CHAR(10))

2: Wrap text cell B2.

 

[phulien1902]

Chào mọi người.

Mình có 1 bảng tính khoảng 1500 dòng, trong đó cột nội dung song ngữ phân cách bằng dấu "/" (cái này do hồi trước mình joint lại từ 2 dòng để dễ lọc). Mọi người cho mình hỏi là có cách nào để tự động ngắt đoạn text sau dấu "/" xuống dòng trong cùng 1 ô hay không. Ví dụ: Ô A1: Bêtông móng… / Ready mixed concrete for foundation... thì ngắt đoạn tiếng Anh xuống dòng trong cùng ô đó.

Cảm ơn.

Bạn tham khảo:

Sub abc()
    Dim a, i&, Sp
    a = Range("A1:A" & Application.Max(Cells(Rows.Count, "A").End(xlUp).Row, 1))
    For i = 1 To UBound(a, 1)
        Sp = Split(a(i, 1), "/")
        a(i, 1) = Sp(0) & Chr(10) & Sp(1)
    Next i
    Range("A1").Resize(UBound(a, 1)).Value = a
    With [a1].CurrentRegion
        .Rows.EntireRow.AutoFit
    End With
End Sub