第1个回答
左手///觴'2024.01.13回答Subtest()ar=Range("a1").CurrentRegion.Value2Setc=CreateObject("Scripting.Dictionary")Fori=1To50Forj=1To3s=WorksheetFunction.CountIf(Range("a1:c50"),Cells(i,j))xs=WorksheetFunction.CountIf(Range(Cells(1,1),Cells(i,j)),Cells(i,j))Ifs<>0Andxs=1Thenc(s)=c(s)&ar(i,j)&","EndIfNextNextForEachKeyInc.keyss=Range("d1000").End(3).Row+1Cells(s,4)="【"&Key&"】:"&c(Key)NextKeyEndSub