นับค่าที่ไม่ว่างหลังจากผลิตภัณฑ์คาร์ทีเซียนใน excel

ฉันหวังว่าคำอธิบายของฉันจะถูกต้อง; ยินดีต้อนรับการปรับปรุง
ฉันมี 2 ตารางใน Excel ในตารางที่ 1 มี 2 คอลัมน์ A และ B ความสัมพันธ์แบบหลายต่อหลายอาจเป็นไปได้
ในตารางที่ 2 มี 2 คอลัมน์คือ A และ B เหล่านี้เป็นรายการที่แตกต่างกัน
Table1-ColumnB และ Table2-ColumnA เป็นค่าเดียวกัน - เป็น foreign key ถ้าคุณต้องการ

ฉันมีรายการค่าความแตกต่างจาก Table1-ColumnA ในรายการผลลัพธ์ ฉันจำเป็นต้องรู้ว่าสำหรับแต่ละรายการในรายการนี้ถ้าหลังจากการเข้าร่วมในต่างประเทศที่สำคัญถ้าทุกค่าที่เกี่ยวข้องใน Table2-Column2 ว่างเปล่า (ฉันไม่จำเป็นต้องรู้ว่ามีเนื้อหาอะไรเฉพาะเมื่อมีเนื้อหา)

ทั้งหมดนี้ต้องทำในเซลล์เดียวใน excel

หากมีคนรู้วิธีรับผลลัพธ์ที่คุณต้องการโดยใช้สูตรอาร์เรย์โปรดบอกเรา ฉันไม่คิดว่ามันเป็นไปได้ ... ดังนั้นฉันจึงใช้ VBA นี่คือโซลูชันรหัสของฉัน (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

นี้เป็นผลที่คุณจะได้รับ: คุณยังสามารถใช้การอ้างอิงช่วงปกติเช่นในฉันจะได้ยังแทรกสูตรนี้I3=Results(H3,B$3:C$13,E$3:F$10)

วางรหัสลงใน VBA Editor ( Alt + F11 ) ในโมดูล "Module1" ที่เพิ่งแทรก (ไม่ใช่ในโมดูล "ThisWorkbook" หรือ "Sheet")