Nhờ chuyển sang hàm sử dụng trong excel!!! (1 người xem)

[nguyenanhdung8111982]

em có tìm thấy đoạn code như dưới tách chuỗi những ô có waraptext. Nhờ anh chị chuyển code từ sub sang function sử dụng trong excel!!!
Hoặc sửa code khi chạy chọn theo range của cột thay vì click từng ô.

Sub splitText()
'splits Text active cell using ALT+10 char as separator
Dim splitVals As Variant
Dim totalVals As Long
'Range(ActiveCell, ActiveCell.End(xlDown)).Select
splitVals = Split(ActiveCell.Value, Chr(10))
totalVals = UBound(splitVals)
Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1 + totalVals)).Value = splitVals

End Sub

 

[saobekhonglac]

Thử công thức này:

B1=TRIM(MID(SUBSTITUTE($A1,CHAR(10),REPT(" ",100)),1+(COLUMN(A1)-1)*99,99))

 

[Phuocam]

em có tìm thấy đoạn code như dưới tách chuỗi những ô có waraptext. Nhờ anh chị chuyển code từ sub sang function sử dụng trong excel!!!
Hoặc sửa code khi chạy chọn theo range của cột thay vì click từng ô.

Sub splitText()
'splits Text active cell using ALT+10 char as separator
Dim splitVals As Variant
Dim totalVals As Long
'Range(ActiveCell, ActiveCell.End(xlDown)).Select
splitVals = Split(ActiveCell.Value, Chr(10))
totalVals = UBound(splitVals)
Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1 + totalVals)).Value = splitVals

End Sub

Thử code sau:

Function splitText(txt As String, ViTri As Long) As String
Dim Arr As Variant
Arr = Split(txt, ChrW(10))
If ViTri - 1 <= UBound(Arr) Then splitText = Arr(ViTri - 1)
End Function

Trong B1, nhập:

=splitText($A1,COLUMN(A1))

 

[nguyenanhdung8111982]

Thử công thức này:

B1=TRIM(MID(SUBSTITUTE($A1,CHAR(10),REPT(" ",100)),1+(COLUMN(A1)-1)*99,99))

Công thức ok!!! cám ơn bạn

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

Thử code sau:

Function splitText(txt As String, ViTri As Long) As String
Dim Arr As Variant
Arr = Split(txt, ChrW(10))
If ViTri - 1 <= UBound(Arr) Then splitText = Arr(ViTri - 1)
End Function

Trong B1, nhập:

=splitText($A1,COLUMN(A1))

Cám ơn bạn!!! hàm chạy ok!!!