Home » Thủ Thuật » Thủ Thuật Văn Phòng » Gộp dữ liệu nhiều ô cel vào 1 ô cel by VBA

Gộp dữ liệu nhiều ô cel vào 1 ô cel by VBA

Thứ Sáu, 10 tháng 4, 2015

Bước 1: Chép code sau vào module:

Function JoinText(ByVal Sep As String, ByVal IgnoreBlanks As Boolean, ParamArray sArray()) As String Dim tmpArr, SubArr, Arr(), Item, n As Long, tmp As String On Error Resume Next For Each SubArr In sArray tmpArr = SubArr If TypeName(tmpArr) <> "Variant()" Then tmp = IIf(TypeName(tmpArr) = "Error", "", Trim(CStr(tmpArr))) If IgnoreBlanks = False Or Len(tmp) Then n = n + 1 ReDim Preserve Arr(1 To n) Arr(n) = tmp End If Else For Each Item In tmpArr tmp = IIf(TypeName(Item) = "Error", "", Trim(CStr(Item))) If IgnoreBlanks = False Or Len(tmp) Then n = n + 1 ReDim Preserve Arr(1 To n) Arr(n) = tmp End If Next End If Next If n Then JoinText = Join(Arr, Sep) End Function

Bước 2: Vào ô cel cần gộp dữ liệu nhập công thức sau:

=JoinText(", ", TRUE, A1:A10)

Nhớ thay đổi vùng chọn A1:A10 phù hợp.

Chia sẻ bài viết

Bài liên quan