Venn diagram or names in a list

Hi Ian,

I've seen somewhere how to do Venn diagramm without built-in art tool, looks like a lot of manual work. In any case I may advise nothing here.

If to generate overlapping lists it could be two approaches (perhaps at least) - using Excel formulas or using Get & Transform (or Power Query in earlier versions of Excel).

For this exersise i transformed your data to Excel table. First approach is based on INDEX/MATCH tecnique, in particular use for 1-2 overlapping

=IFERROR(INDEX(Table1[2],MATCH(Table1[@1],Table1[2],0)),"")

which returns here names from first column which are met in second one. Simular is for other otherlapping. Not sure how final result shall looks like, perhaps some sorting/copy/paste work will require to polish it.

Second approach is much more flexible. Not sure how familiar you with G&T, here is just short idea. We create query from our source table, another query is its copy, after that we sequently join them by first-second, first-third and second-third column to generate tables with overlapping columns sorted alphabetically, finally merge them all and load result back to the Excel sheet.

Queries are simular, code for one of them

let
    
    // Join first and second columns using source table and its' copy
    Source = Table.NestedJoin(Table,{"1"},CopyOfTable,{"2"},"NewColumn",JoinKind.LeftOuter),

    // Pickup from resulting table the column with overlapping names
    ExpandNewColumn = Table.ExpandTableColumn(Source, "NewColumn", {"2"}, {"1-2"}),

    // For the sorting in ascending order replace null with symbol at the top of ASCII table
    ReplaceForSort = Table.ReplaceValue(ExpandNewColumn,null,"#(FFFF)",Replacer.ReplaceValue,{"1-2"}),
    SorteIt = Table.Sort(ReplaceForSort,{{"1-2", Order.Ascending}}),

    // Add Index to sorted table to combine all overlapping columns and in proper order
    AddIndex = Table.AddIndexColumn(SorteIt, "Index", 1, 1),

    RemoveUnusedColumns = Table.SelectColumns(AddIndex,{"1-2", "Index"}),

    ReplaceSortingCharBackToNull = Table.ReplaceValue(RemoveUnusedColumns,"#(FFFF)",null,Replacer.ReplaceValue,{"1-2"})
in
    ReplaceSortingCharBackToNull

Actually you may generate all above from UI, no coding is required.

The results for both variants

all formulas are in attached file