Xử lý lỗi vbNewLine trong excel

[An.BA]

Em có 1 đoạn code vba để lấy ra những nội dung của 1 mã học sinh và mỗi nội dụng được tách nhau bởi dấu xuống dòng
nhìn trên exccel thì nó gọn như này


, nhưng khi copy paste lên email thì nó bị khoảng cách như này (bị ngăn đôi giữa 2 nội dung rất xấu)
---------------------------------------------------------
Hệ Chất Lượng Cao 01/06/2018 - 31/03/2019

Hệ Chất Lượng Cao 01/06/2018 - 31/03/2019
-------------------------------------------------------

code của em là như này ạ, vậy em làm sao để xóa được cái khoảng trống kia ạ, Em cảm ơn!

Function E_PhiTheoKy_TP(mahs As String) As String
    With Sheet2
        dong_cuoi = .Range("A5000").End(xlUp).Row
       Dim kq As String
        For i = dong_cuoi To 2 Step -1
            ma = .Cells(i, "L").Value ' 
            If ma = mahs  Then
                tungay = (.Cells(i, "Q").Value) ' ngay bat dau
                denngay = (.Cells(i, "R").Value) ' ngay ket thuc
                kq = kq & vbNewLine & Format(tungay, "dd/MM/yyyy") & " - " & Format(denngay, "dd/MM/yyyy") & " ")
            End If
        Next i
        

         E_PhiTheoKy_TP = kq
    End With
End Function

 

[HeSanbi]

Chắc là nên như vầy, bạn thử xem

kq = iif(kq<>"",kq & vbNewLine,"") & Format(tungay, "dd/MM/yyyy") & " - " & Format(denngay, "dd/MM/yyyy") & " ")

 

[An.BA]

vâng để e thử

Bài đã được tự động gộp: 21/2/19

kq = iif(kq<>"",kq & vbNewLine,"") & Format(tungay, "dd/MM/yyyy") & " - " & Format(denngay, "dd/MM/yyyy") & " ")

không được bác à, ra mail nó vẫn chuối thế này

 

[HeSanbi]

Bỏ & " " thử xem

kq = iif(kq<>"",kq & vbNewLine,"") & Format(tungay, "dd/MM/yyyy") & " - " & Format(denngay, "dd/MM/yyyy"))

 

[An.BA]

Bỏ & " " thử xem

kq = iif(kq<>"",kq & vbNewLine,"") & Format(tungay, "dd/MM/yyyy") & " - " & Format(denngay, "dd/MM/yyyy"))

vẫn k thể đc bác à