求助大神，多列数据合并去重，谢谢谢谢

科比暴打马龙瓦妮莎狗男女

谢谢，思路很好，感谢感谢

北极心

多谢提示，本人公式小白，还需要向大神学习

章成方

感谢大神，向高手学习

大叔小叶

大家一起相互学习

张招

=INDIRECT(TEXT(MIN((COUNTIF($I$6:I6,$B$2:$E$23)+($B$2:$E$23<=""))/1%%+ROW($B$2:$E$23)/1%+COLUMN($B$2:$E$23)),"r0c00"),)&""

老诸

数组公式：
I7=INDIRECT(TEXT(MIN(IF((COUNTIF($I$6:I6,$B$7:$E$15)=0)*($B$7:$E$15<>""),ROW($7:$15)*100+COLUMN(B:E),4^8)),"R0C00"),)&""

老栓

复制这段代码，应该效率更高吧，看能否帮到你
Sub quchong()
Dim d As Object, i As Integer, arr
Set d = CreateObject("scripting.dictionary")
arr = [b7].CurrentRegion
For i = 1 To UBound(arr)
  For j = 1 To UBound(arr, 2)
  If arr(i, j) <> "" Then
  d(arr(i, j)) = ""
  End If
  Next
Next
[h7].Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
End Sub

便民超市

导入数据.编辑查询.连接 把HDR=后面的YES改为NO
…….命令文本SELECT * FROM (
SELECT F1
FROM [Sheet1$B7:E] UNION
SELECT F2
FROM [Sheet1$B7:E] UNION
SELECT F3
FROM [Sheet1$B7:E] UNION
SELECT F4
FROM [Sheet1$B7:E]
)
WHERE F1<>""

奔跑的青春

=INDIRECT(TEXT(MIN((COUNTIF($G$6:G6,$B$7:$E$15)+($B$7:$E$15<=""))/1%%+ROW($B$7:$E$15)/1%+COLUMN($B$7:$E$15)),"r0c00"),)&""

请参考~
请教.zip (9.04 KB, 下载次数: 14)

2021-10-11 23:00 上传

点击文件名下载附件
请教.zip

世纪良缘婚纱旅拍

=INDIRECT(TEXT(MIN((COUNTIF($G$6:G6,$B$7:$E$15)+($B$7:$E$15<=""))/1%%+ROW($B$7:$E$15)/1%+COLUMN($B$7:$E$15)),"r0c00"),)&""

请参考~
请教.zip (9.04 KB, 下载次数: 51)

2021-10-11 23:00 上传

点击文件名下载附件
请教.zip