Anh chị giúp em về hàm nối các chuỗi thành 1 hàng (1 người xem)

[UtMay]

Chào anh/chị!

Như trên hình thì em phải dùng hàm gì để được dẫy số cách nhau dấu phẩy ở ô B10 ạ?? dẫy số ở cột chuyển thành hàng nhưng cách nhau dấu phẩy ạ!???

 

[nghiaphuc]

Chào anh/chị!

Như trên hình thì em phải dùng hàm gì để được dẫy số cách nhau dấu phẩy ở ô B10 ạ?? dẫy số ở cột chuyển thành hàng nhưng cách nhau dấu phẩy ạ!???

Nếu số lượng ít thì bạn có thể sử dụng toán tử & hoặc hàm CONCATENATE để nối chuỗi.
Nếu số lượng nhiều thì nên sử dụng VBA để xử lý. Vấn đề này thì bạn có thể tham khảo trên diễn đàn, có rất nhiều kết quả, chẳng hạn xem topic này

 

[UtMay]

Nếu số lượng ít thì bạn có thể sử dụng toán tử & hoặc hàm CONCATENATE để nối chuỗi.
Nếu số lượng nhiều thì nên sử dụng VBA để xử lý. Vấn đề này thì bạn có thể tham khảo trên diễn đàn, có rất nhiều kết quả, chẳng hạn xem topic này

Hic hic VBA gì gì đó làm theo mà không được, nó khó vậy sao
một dẫy số rất dài. Hichic

 

[Let'GâuGâu]

Hic hic VBA gì gì đó làm theo mà không được, nó khó vậy sao
một dẫy số rất dài. Hichic

trên diễn đàn có rất nhiều, ví dụ như hàm jointif, jointext của anh NDU
hoặc đơn giản bạn cũng có thể chế ra như sau

Function noinhau(rng As Range)
Dim arr As Variant, kq(), i, k As Long
arr = rng.Value
For i = 1 To UBound(arr)
    If Not IsEmpty(arr(i, 1)) Then
        k = k + 1
        ReDim Preserve kq(1 To k)
        kq(k) = arr(i, 1)
    End If
Next
If k Then noinhau = Join(kq, ",")

End Function

hoặc đơn giản hơn nữa

Function noinhau(rng As Range)
Dim arr As Variant
arr = WorksheetFunction.Transpose(rng)

noinhau = Join(arr, ",")

End Function

cách làm thì như sau, mởi cái file của bạn ra===> nhấn Alt F11===>cửa sổ vba mởi ra, vào insert chọn module===> chép 1 trong 2 đoạn code trên vào
xong vào sheet gõ cthuc

=noinhau(I23:I27)

ví dụ chuổi của bạn từ I23:I27

 

[UtMay]

trên diễn đàn có rất nhiều, ví dụ như hàm jointif, jointext của anh NDU
hoặc đơn giản bạn cũng có thể chế ra như sau

Function noinhau(rng As Range)
Dim arr As Variant, kq(), i, k As Long
arr = rng.Value
For i = 1 To UBound(arr)
    If Not IsEmpty(arr(i, 1)) Then
        k = k + 1
        ReDim Preserve kq(1 To k)
        kq(k) = arr(i, 1)
    End If
Next
If k Then noinhau = Join(kq, ",")

End Function

hoặc đơn giản hơn nữa

Function noinhau(rng As Range)
Dim arr As Variant
arr = WorksheetFunction.Transpose(rng)

noinhau = Join(arr, ",")

End Function

cách làm thì như sau, mởi cái file của bạn ra===> nhấn Alt F11===>cửa sổ vba mởi ra, vào insert chọn module===> chép 1 trong 2 đoạn code trên vào
xong vào sheet gõ cthuc

=noinhau(I23:I27)

ví dụ chuổi của bạn từ I23:I27

Cảm ơn bạn rất nhiều, bài viết rất rõ ràng.

 

[hung2412]

Chào anh/chị!

Như trên hình thì em phải dùng hàm gì để được dẫy số cách nhau dấu phẩy ở ô B10 ạ?? dẫy số ở cột chuyển thành hàng nhưng cách nhau dấu phẩy ạ!???

Cách cùi:
Tại ô B10 bạn gõ:

=B2& "," &B3& "," &B4& "," &B5& "," &B6& "," &B7& "," &B8