Nhờ mọi người lọc dữ liệuQ (1 người xem)

[xanhduong111]

Chào mọi người!
Mình có 1 câu dữ liệu, đã nghiên cứu 1 thời gian nhưng vẫn chưa giải ra được. Nhờ mọi người giúp dùm mình dữ liệu này:

Trong ô E7:
- Khi mình điền giá trị 1 thì ô F7 sẽ ra: a,b,c,d,e,f
- Khi mình điền giá trị 2 thì ô F7 sẽ ra: Q,W,R,T,Y
- Khi mình điền giá trị 3 thì ô F7 sẽ ra: I,O
Như vậy trong ô F7 mình phải làm hàm gì để mình có thể làm được nội dung trên. Chi tiết hơn mọi người vui lòng xem file đính kèm.

Mình xin cảm ơn mọi người

 

[Let'GâuGâu]

Chào mọi người!
Mình có 1 câu dữ liệu, đã nghiên cứu 1 thời gian nhưng vẫn chưa giải ra được. Nhờ mọi người giúp dùm mình dữ liệu này:

Trong ô E7:
- Khi mình điền giá trị 1 thì ô F7 sẽ ra: a,b,c,d,e,f
- Khi mình điền giá trị 2 thì ô F7 sẽ ra: Q,W,R,T,Y
- Khi mình điền giá trị 3 thì ô F7 sẽ ra: I,O
Như vậy trong ô F7 mình phải làm hàm gì để mình có thể làm được nội dung trên. Chi tiết hơn mọi người vui lòng xem file đính kèm.

Mình xin cảm ơn mọi người

xem file nha bạn.................

 

[phulien1902]

Chào mọi người!
Mình có 1 câu dữ liệu, đã nghiên cứu 1 thời gian nhưng vẫn chưa giải ra được. Nhờ mọi người giúp dùm mình dữ liệu này:

Trong ô E7:
- Khi mình điền giá trị 1 thì ô F7 sẽ ra: a,b,c,d,e,f
- Khi mình điền giá trị 2 thì ô F7 sẽ ra: Q,W,R,T,Y
- Khi mình điền giá trị 3 thì ô F7 sẽ ra: I,O
Như vậy trong ô F7 mình phải làm hàm gì để mình có thể làm được nội dung trên. Chi tiết hơn mọi người vui lòng xem file đính kèm.

Mình xin cảm ơn mọi người

Thử với code dưới:

Function Ghep(N As String) As String
    Dim LR As Long, i As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If Range("A" & i) = N Then
            If InStr(1, Ghep, Range("B" & i)) Then GoTo GetNext
            Ghep = Ghep & ", " & Range("B" & i)
        End If
GetNext:
    Next i
    Ghep = Mid(Ghep, 2, Len(Ghep))
End Function

 

[xanhduong111]

Mình cảm ơn 2 bạn, nhưng ngoài cách phải thêm code để làm hàm mới ra, mình có dùng các hàm thông thường để xử lý trường hợp này được không? như If hoặc Vlookup chẳng hạn.

 

[khuongvietphong]

Mình cảm ơn 2 bạn, nhưng ngoài cách phải thêm code để làm hàm mới ra, mình có dùng các hàm thông thường để xử lý trường hợp này được không? như If hoặc Vlookup chẳng hạn.

Hàm bình thường trong Excel không làm được việc này đâu bạn à

 

[Ngoai Thanh]

Mình cảm ơn 2 bạn, nhưng ngoài cách phải thêm code để làm hàm mới ra, mình có dùng các hàm thông thường để xử lý trường hợp này được không? như If hoặc Vlookup chẳng hạn.

Ồ , xin lỗi , mình nhầm điều kiện ...

 

[HungQuoc49]

Chào mọi người!
Mình có 1 câu dữ liệu, đã nghiên cứu 1 thời gian nhưng vẫn chưa giải ra được. Nhờ mọi người giúp dùm mình dữ liệu này:

Trong ô E7:
- Khi mình điền giá trị 1 thì ô F7 sẽ ra: a,b,c,d,e,f
- Khi mình điền giá trị 2 thì ô F7 sẽ ra: Q,W,R,T,Y
- Khi mình điền giá trị 3 thì ô F7 sẽ ra: I,O
Như vậy trong ô F7 mình phải làm hàm gì để mình có thể làm được nội dung trên. Chi tiết hơn mọi người vui lòng xem file đính kèm.

Mình xin cảm ơn mọi người

Bạn xem thử file đính kèm

 

[doveandrose]

Góp vui:

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dic As Object, sArr(), dArr(), I As Long, J As Long, K As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
If Target.Address = "$E$7" Then
With Sheet1
    sArr = .[E7:E8].Value
    ReDim dArr(1 To 1, 1 To 1)
    For I = 1 To UBound(sArr)
        Tem = sArr(I, 1)
        If Not Dic.Exists(Tem) Then
            K = K + 1
            Dic.Add Tem, K
        End If
    Next I
    sArr = .Range(.[A2], .[A65000].End(3)).Resize(, 2).Value
    For I = 1 To UBound(sArr)
    If sArr(I, 1) = .[E7].Value Then
        dArr(1, 1) = dArr(1, 1) + "," + sArr(I, 2)
    End If
Next I
    .[F7].Value = Mid(dArr(1, 1), 2, UBound(sArr))
Set Dic = Nothing
End With
End If
End Sub

cách này đến sau các giải pháp khác 1 ngày mà sao lại dài hơn và phức tạp hơn vậy ta ? hi hi