Xuống dòng trong ô

[cuonghoa176]

Nhờ các Bác xem cách nào xuống dòng thay cho Alt/Enter, e xin cảm ơn!

 

[SA_DQ]

Đây là macro dành cho bạn:

Sub ThayCho_ALT_ENTER()
  Dim StrC As String, KQua As String
  Dim VTr As Integer:                                       Dim Cls As Range

  For Each Cls In Range([B2], [B2].End(xlDown))
    StrC = Cls.Value & "-":                                 KQua = ""
    Do
        VTr = InStr(2, StrC, "-"):                          If VTr < 1 Then Exit Do
        KQua = KQua & Left(StrC, VTr - 1) & Chr(10)
        StrC = Mid(StrC, VTr, Len(StrC))
    Loop
    Cls.Offset(, 4).Value = KQua
  Next Cls
End Sub

(Còn gi khác nữa, ta sẽ bàn tiếp)

Chúc cộng đồng có tuần làm việc vui vẻ & kết quả!