Theo mình nghĩ nên dùng Replace là nhanh nhất!
Chú ý chổ in đậm màu đỏ nhé...
Option Explicit
Public Function daochuoi(strText As String)
Dim strText2() As String 'nvson
Dim strText3 As String
Dim i
strText = strText
strText2 = Split(strText, Chr(10))
For i = UBound(strText2) To 0 Step -1
strText3 = strText3 & Chr(10) & strText2(i)
Next i
daochuoi = Right(strText3, Len(strText3) - 1)
End FunctionKhi ta Alt + Enter thì đó cũng chính là Wrap text đấy, có điều cái này là ta chủ động cho xuống dòng ở nơi nào đó tùy ý... Còn như gõ bình thường rồi chọn Wrap text thì Excel sẽ tự cân chỉnh theo quan điểm vừa đũ độ rộng cột thì xuống hàng...kongcom đã viết:
ThuNghi đã viết:
Public Function DaoTuInCell(strText As String)
Dim aText() As String
Dim strTemp As String, i As Integer
aText = Split(strText, Chr(10))
strTemp = aText(UBound(aText))
For i = UBound(aText) - 1 To 0 Step -1
strTemp = strTemp & Chr(10) & aText(i)
Next i
DaoTuInCell = strTemp
End Function
nguyensang đã viết:
