Giúp mình với, không dùng filter (1 người xem)

[1huyenthoai]

Mình có bài tập thế này:
Dư liệu gồm có 2 cột
- Cột 1: ghi tên các phòng ban
- Cột 2: ghi tên các cán bộ trong phòng

(Cột 1: các phòng ban ghi không theo thứ tự, ghi lung tung, gồm có 4 phòng, tương ứng với mỗi dư liệu cột 1 thì có tên cán bộ cở cột 2)

--> có hàm nào để tạo cột 3 ghi ra tên cán bộ với điều kiện là cùng phòng theo cột 1
Mà không dùng Filer không các bác? Giúp mình với !!!!!!!!

 

[SA_DQ]

Iêu cầu của bạn được thỏa mãn bỡi hàm tự tạo như sau

Option Explicit
Function LapDS(TenDV As String, Rng As Range)
 ReDim Arr(1 To 30, 1 To 1)
 Dim sRng As Range, Cls As Range, Rg0 As Range, J As Long
  
 Set sRng = Rng.Find(TenDV, , xlValues, xlWhole)
 If Not sRng Is Nothing Then
    Set Rg0 = sRng.Resize(Rng.Rows.Count)
    
    For Each Cls In Rg0
        If Cls.Value = "" Then Exit For
        If Cls.Value = TenDV Then
            J = 1 + J
            Arr(J, 1) = Cls.Offset(, 1).Value
        End If
    Next Cls
 Else
    LapDS = "Nothing"
 End If
 LapDS = Arr()
End Function

Hàm này là hàm mảng, kết thúc bỡi tổ hợp 3 fím giành cho nó

 

[Lê Duy Thương]

Option Explicit
Function LapDS(TenDV As String, Rng As Range)
 ReDim Arr(1 To 30, 1 To 1)
 Dim sRng As Range, Cls As Range, Rg0 As Range, J As Long
  
 Set sRng = Rng.Find(TenDV, , xlValues, xlWhole)
 If Not sRng Is Nothing Then
    Set Rg0 = sRng.Resize(Rng.Rows.Count)
    
    For Each Cls In Rg0
        If Cls.Value = "" Then Exit For
        If Cls.Value = TenDV Then
            J = 1 + J
            Arr(J, 1) = Cls.Offset(, 1).Value
        End If
    Next Cls
 Else
    LapDS = "Nothing"
 End If
 LapDS = Arr()
End Function

Hàm này là hàm mảng, kết thúc bỡi tổ hợp 3 fím giành cho nó

Mình có bài tập thế này:
Dư liệu gồm có 2 cột
- Cột 1: ghi tên các phòng ban
- Cột 2: ghi tên các cán bộ trong phòng

(Cột 1: các phòng ban ghi không theo thứ tự, ghi lung tung, gồm có 4 phòng, tương ứng với mỗi dư liệu cột 1 thì có tên cán bộ cở cột 2)

--> có hàm nào để tạo cột 3 ghi ra tên cán bộ với điều kiện là cùng phòng theo cột 1
Mà không dùng Filer không các bác? Giúp mình với !!!!!!!!

có thể dùng pivot table chỉ trong 5 s