Hỏi về cách tự động Alt+Enter trong 1 cell (1 người xem)

[thedeath2078]

Chào các anh chị !

E có trường hợp này nhờ các anh chị xem có giải pháp nào để thực hiện không ạ.

Ví dụ e có 1 cột gồm nhiều hàng. Trong mổi ô ghi 1 dãy ký tự. Mổi ký tự câu đều bắt đầu bằng 1 dấu ký tự đặc biệt, ví dụ như dấu"*"

Có giải pháp nào để mối câu bắt đầu băng dấu "*" thì tự động Alt+Enter để xuống hàng trong cùng 1 Cell ko ạ

Em post ví dụ cụ thể, nhờ anh chị xem giúp ạ

Em xin cảm ơn !

 

[CHAOQUAY]

Chào các anh chị !

E có trường hợp này nhờ các anh chị xem có giải pháp nào để thực hiện không ạ.

Ví dụ e có 1 cột gồm nhiều hàng. Trong mổi ô ghi 1 dãy ký tự. Mổi ký tự câu đều bắt đầu bằng 1 dấu ký tự đặc biệt, ví dụ như dấu"*"

Có giải pháp nào để mối câu bắt đầu băng dấu "*" thì tự động Alt+Enter để xuống hàng trong cùng 1 Cell ko ạ

Em post ví dụ cụ thể, nhờ anh chị xem giúp ạ

Em xin cảm ơn !

Nếu dùng VBA thì chạy code dưới đây

Sub Test()
Dim i, j
With CreateObject("VbScript.RegExp")
    .Global = True
    .Pattern = "\*"
    For i = 7 To 9
        Sheet1.Range("A" & i) = .Replace(Sheet1.Range("A" & i), ChrW(10) & "*")
    Next i
End With
End Sub

 

[batman1]

Công thức cho B7:

hoặc (chưa chuẩn - có ký tự mã 10 ở đầu)

=SUBSTITUTE(A7,"*",CHAR(10) & "*")

hoặc

=MID(SUBSTITUTE(A12,"*",CHAR(10) & "*"),2,2*LEN(A12))

Định dạng cột B: "Wrap text" được chọn, "Vertical alignment" = Top.

 

[thedeath2078]

Nếu dùng VBA thì chạy code dưới đây

Sub Test()
Dim i, j
With CreateObject("VbScript.RegExp")
    .Global = True
    .Pattern = "\*"
    For i = 7 To 9
        Sheet1.Range("A" & i) = .Replace(Sheet1.Range("A" & i), ChrW(10) & "*")
    Next i
End With
End Sub

Cảm ơn anh rất nhiều. Code này chạy chuẩn như mục đích của em rồi ạ!

Bài đã được tự động gộp: 1/5/20

Công thức cho B7:

hoặc (chưa chuẩn - có ký tự mã 10 ở đầu)

=SUBSTITUTE(A7,"*",CHAR(10) & "*")

hoặc

=MID(SUBSTITUTE(A12,"*",CHAR(10) & "*"),2,2*LEN(A12))

Định dạng cột B: "Wrap text" được chọn, "Vertical alignment" = Top.

Cảm ơn anh nhiều ạ !