依某单元格信息，找出A列相符的行，汇总D列信息

cyq4896 · 发表于 2023-5-20 09:09

又下载了一个

cyq4896 · 发表于 2023-5-20 09:09

试试这个行吧

niko88819 · 发表于 2023-5-20 09:23

老师还是被删除,可以证明一点,简体字有两款式,另外一种简体字是可以接受的,老师这款就不行

真奇怪,这位老师zxsea_7426代码可以打开,虽然是乱码,至少不会被删除
https://club.excelhome.net/forum ... ead&tid=1661985

niko88819 · 发表于 2023-5-20 11:10

cyq4896 发表于 2023-5-20 09:09
试试这个行吧

简体字有两款式,另外一种简体字是可以接受的,老师这款就不行

准提部林 · 发表于 2023-5-20 11:48

不去重
Sub TEST_A1()
Dim Arr, i&, S$, T$
S = [f3]
Arr = [a1].CurrentRegion
For i = 3 To UBound(Arr)
If Arr(i, 1) = S And Arr(i, 4) <> "" Then T = T & "," & Arr(i, 4)
Next i
[g3] = Mid(T, 2)
End Sub

		自动登录	找回密码
密码			免费注册

依某单元格信息，找出A列相符的行，汇总D列信息

评分