Cho em xin code cho nút "thoát"

[sunshinexxxx]

bạn có chắc chắn bố trí như vậy không? nếu H7/k6 không có ở tại 1 ô nào thì sao

bạn tự phát triển code đi nha, tôi không tham gia nữa

Sub GPE()
Dim Arr, Arr1, rng As Range, Clls As Range
Dim Tam As String
Dim dem  As Long
Dim i As Long
Set rng = Range("H6:H8")


    Arr = Split(rng(1, 1).Value)
    Tam = ""
     For i = 0 To UBound(Arr, 1)
        dem = 0
          For Each Clls In rng
              If (InStr(1, Clls.Value, Arr(i)) > 0) Then
                    dem = dem + 1
              End If
              
          Next
          If (dem = 3) Then Tam = Tam & Arr(i)
      Next
     Range("H10").Value = Tam
 End Sub

[giaitriso]

anh có thể sửa đoạn code trên với 4 ô được không.em đang rất cần nó.mong anh giúp đỡ