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

yanglinzi

yanglinzi

请参考。。。。

哈哈哈道顶

niko88819 发表于 2023-5-19 20:24
欢迎楼主登陆论坛
大家都非常乐意协助楼主解决问题,请楼主了解以下2条要点
1. 问题得到满意解答在你发 ...

不好意思，我找了一下，好像没有见有编辑这字眼，您能指一下位置？谢谢

DEHAIJUN

1. Sub test1()
   
2. Dim s As String, con As String, i As Long
   
3. Dim ar As Variant
   
4. s = Range(“F3”).Value
   
5. Range(“G3”).Value = “”
   
6. 
   
7. If s <> "" Then
   
8.     ar = Range("A2").CurrentRegion.Value
   
9.     For i = 2 To UBound(ar)
   
10.         If UCase(ar(i, 1)) = UCase(s) And ar(i, 4) <> "" Then
    
11.             con = Trim(con & "," & ar(i, 4))
    
12.         End If
    
13.     Next i
    
14.    
    
15.     If con <> "" Then Range("G3").Value = Mid(con, 2)
    
16. End If
    
17. End Sub

复制代码

cyq4896

参与一下。

哈哈哈道顶

cyq4896 发表于 2023-5-19 21:35
参与一下。

更简洁，优秀！感谢

cyq4896

后两句可合并成一句

niko88819

cyq4896 发表于 2023-5-19 21:35
参与一下。

老师可以贴出代码分享吗? 全英文系统 OFFICE+WINDOWS 代码中只要有一个中文字,打开附件,都清空,造成代码遗失了

cyq4896

试试这个吧

niko88819

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

连代码中遇到有特殊符号都不行


此工作簿中的 visual basic for applications (VBA) 宏已损坏并已被删除。 宏损坏很可能存在于当前文件中。
要恢复宏，请打开此文件的备份副本（如果有的话）