Hitung nilai yang tidak kosong setelah produk kartesius di excel

Saya harap uraian saya akurat; perbaikan diterima.
Saya memiliki 2 tabel di Excel. Dalam Tabel 1 ada 2 kolom, A dan B. Ini bisa berupa hubungan banyak ke banyak.
Dalam Table2 ada 2 kolom, A dan B. Ini adalah entri yang berbeda.
Table1-ColumnB dan Table2-ColumnA adalah nilai yang sama - kunci asing jika Anda mau.

Saya memiliki daftar nilai diskrit dari Table1-ColumnA di Daftar Hasil. Saya perlu tahu apakah untuk setiap item dalam daftar ini, jika setelah bergabung pada kunci asing, jika semua nilai terkait dalam Table2-Column2 kosong. (Saya tidak perlu tahu konten apa yang dimilikinya, hanya jika memiliki konten.)

Ini semua perlu dilakukan dalam satu sel dalam excel.

Jika seseorang tahu cara mendapatkan hasil yang Anda inginkan menggunakan rumus array, beri tahu kami. Saya tidak berpikir itu mungkin ... Karena itu saya menggunakan VBA. Ini adalah solusi kode saya (UDF):

Option Explicit
Function Results(cell As Range, table_1 As Range, table_2 As Range) As String
Dim aTable1() As Variant
Dim aTable2() As Variant
aTable1 = table_1.Value
aTable2 = table_2.Value
Dim i As Long, j As Long 'counters

For i = 1 To UBound(aTable1, 1)
    If aTable1(i, 1) = cell.Value Then
        For j = 1 To UBound(aTable2, 1)
            If aTable1(i, 2) = aTable2(j, 1) Then
                If Not IsEmpty(aTable2(j, 2)) Then
                    Results = Results & aTable2(j, 1) & " has content, "
                Else
                    Results = Results & aTable2(j, 1) & " has no content, "
                End If
            End If
        Next
        If Results = vbNullString Then
            Results = aTable1(i, 2) & " NOT FOUND"
            GoTo Ending
        End If
    End If
Next
Results = Left(Results, Len(Results) - 2)
If (Len(Results) - Len(Replace(Results, "has", ""))) / 3 = _
(Len(Results) - Len(Replace(Results, "no", ""))) / 2 Then
    Results = "BLANK - " & Results
End If

Ending:
End Function

Ini adalah hasil yang Anda dapatkan: Anda juga dapat menggunakan referensi Rentang biasa, yaitu di I3saya bisa juga dimasukkan rumus ini: =Results(H3,B$3:C$13,E$3:F$10).

Rekatkan kode ke VBA Editor ( Alt + F11 ), dalam modul "Module1" yang baru dimasukkan (bukan dalam modul "ThisWorkbook" atau "Sheet")