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

哈哈哈道顶

各位大虾好，有个汇总表，搞不定，盾环一次，只有有一个结果。请大家帮个忙，感谢！

liulang0808

楼主的附件没有代码啊


https://club.excelhome.net/threa ... tml?_dsign=070dfca3
字典的案例可以参考

ykcbf1100

参与一下。

哈哈哈道顶

ykcbf1100 发表于 2023-5-19 07:35
参与一下。

谢谢草爷的友情帮忙！效果实现。但想再请教一下，我想把F3单元格的为机动灵活，可以随自已想查的那个值的，不知道如何实现？开始我只是查A相应的电器，我现在想换成B相应的，，这代码好像就不能实现？

slonby

Sub chazhao()
Dim s As String, con As String, i%, ar
s = [f3].Value
[g3] = ""
If s <> "" Then
    ar = Range("a2").CurrentRegion
    For i = 2 To UBound(ar)
        If UCase(ar(i, 1)) = UCase(s) And ar(i, 4) <> "" Then
            con = Trim(con & "," & ar(i, 4))
        End If
    Next
    If con <> "" Then Range("g3") = Right(con, Len(con) - 1)
End If
End Sub

slonby

Sub chazhao()
Dim s As String, con As String, i%, ar
s = [f3].Value
[g3] = ""
If s <> "" Then
    ar = Range("a2").CurrentRegion
    For i = 2 To UBound(ar)
        If UCase(ar(i, 1)) = UCase(s) And ar(i, 4) <> "" Then
            con = Trim(con & "," & ar(i, 4))
        End If
    Next
    If con <> "" Then Range("g3") = Right(con, Len(con) - 1)
End If
End Sub

slonby

附件，请查考

哈哈哈道顶

slonby 发表于 2023-5-19 09:20
附件，请查考

太感激帮忙！

gwjkkkkk

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$3" Then
         Application.EnableEvents = False
         ar = [A2].CurrentRegion
         For i = 2 To UBound(ar)
             If ar(i, 1) = [F3].Value Then
                 s = s & "," & ar(i, 4)
             End If
         Next i
         s = Mid(s, 2)
         [G3].Value = s
         Application.EnableEvents = True
    End If
End Sub

niko88819

哈哈哈道顶 发表于 2023-5-19 19:37
太感激帮忙！

欢迎楼主登陆论坛
大家都非常乐意协助楼主解决问题,请楼主了解以下2条要点
1. 问题得到满意解答在你发贴首页(或是1楼) 先编辑后保存  把标题的 "求助" 改为 "已解决"
   https://club.excelhome.net/thread-1643934-1-1.html
2. 如果老师们做的好表现不错可以送花给老师奖励吧,参考这连接怎么评分
   http://club.excelhome.net/thread-682160-1-1.html