科比暴打马龙瓦妮莎狗男女
发表于 2021-10-31 14:01:51
谢谢,思路很好,感谢感谢
北极心
发表于 2021-11-1 01:25:13
多谢提示,本人公式小白,还需要向大神学习
章成方
发表于 2021-11-3 02:50:29
感谢大神,向高手学习
大叔小叶
发表于 2021-11-9 05:40:17
大家一起相互学习
张招
发表于 2021-11-20 05:45:26
=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"),)&""
老诸
发表于 2021-11-21 02:08:15
数组公式:
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"),)&""
老栓
发表于 2021-12-1 00:28:18
复制这段代码,应该效率更高吧,看能否帮到你
Sub quchong()
Dim d As Object, i As Integer, arr
Set d = CreateObject("scripting.dictionary")
arr = .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
.Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
End Sub
便民超市
发表于 2021-12-6 08:44:56
导入数据.编辑查询.连接 把HDR=后面的YES改为NO
…….命令文本SELECT * FROM (
SELECT F1
FROM UNION
SELECT F2
FROM UNION
SELECT F3
FROM UNION
SELECT F4
FROM
)
WHERE F1<>""
奔跑的青春
发表于 2021-12-6 16:29:34
=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"),)&""
请参考~
世纪良缘婚纱旅拍
发表于 2021-12-9 03:05:45
=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"),)&""
请参考~