Gộp các Số theo điều kiện

[tranttoan]

Có File đính kèm các Bác xem giúp đở.
Cảm ơn nhiều

 

[concogia]

Có File đính kèm các Bác xem giúp đở.
Cảm ơn nhiều

Thử với hàm "xi-ma-chao" này xem

Public Function Timso(Dk, Vung)
    Dim I As Long, Kq
        For I = 1 To Vung.Columns.Count
            If Vung(I) = Dk Then Kq = Kq & "," & I
        Next
    Timso = Right(Kq, Len(Kq) - 1)
End Function

 

[tranttoan]

TimChu

Cảm ơn Bác ConCoGia nhiều ! Bác cho tôi hỏi khi thay hàng số bằng hàng chữ thì cũng giống như điều kiện ban đầu thì Fuction Timso sẽ sửa lại như thế nào.
Có kèm File
Cảm ơn Các Bác quan Tâm

 

[concogia]

Cảm ơn Bác ConCoGia nhiều ! Bác cho tôi hỏi khi thay hàng số bằng hàng chữ thì cũng giống như điều kiện ban đầu thì Fuction Timso sẽ sửa lại như thế nào.
Có kèm File
Cảm ơn Các Bác quan Tâm

Tạm thời sử thế này cũng được