找出A列数据中符合条件的所在行号

cnmlgb9998

PQ 解决！！！！！！！！！！！！！！！！！！！

gwjkkkkk

djp1018 发表于 2024-3-6 16:52
请老师帮忙写个VBA代码，感谢！sheet1中为原始数据，sheet2中只要需要查询的数据（B2单元格）一变动，立马 ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar, br, i&, j&, r&, dic As Object, strFind$
   
   
    If Target.Address <> "$B$2" Then Exit Sub
    If Target.Value = "" Then Exit Sub Else strFind = Target.Value
   
    Set dic = CreateObject("Scripting.Dictionary")
    ar = Sheets(1).[A1].CurrentRegion.Value
    For j = 1 To UBound(ar, 2)
        dic(ar(1, j)) = j
    Next j
   
    Application.EnableEvents = False
    With [D1].CurrentRegion
        .Offset(1).Clear
        br = .Resize(UBound(ar))
        r = 1
    End With
    For i = 1 To UBound(ar)
        If ar(i, 2) = strFind Then
            r = r + 1
            br(r, 1) = i
            For j = 2 To UBound(br, 2)
                If dic.exists(br(1, j)) Then
                    br(r, j) = ar(i, dic(br(1, j)))
                End If
            Next j
        End If
    Next i
   
    [D1].Resize(r, UBound(br, 2)) = br
    Application.EnableEvents = True
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

djp1018 发表于 2024-3-6 16:52
请老师帮忙写个VBA代码，感谢！sheet1中为原始数据，sheet2中只要需要查询的数据（B2单元格）一变动，立马 ...

请参考附件。。。

djp1018

shiruiqiang 发表于 2024-3-6 18:14
=======================

效果非常好，感谢老师

djp1018

gwjkkkkk 发表于 2024-3-6 19:47
请参考附件。。。

就是这种效果，非常感谢老师

djp1018

shiruiqiang 发表于 2024-3-6 18:14
=======================

老师：效果出来了，就是如果改成B2数据一旦变化D列到G列数据跟到变化的触发功能就更好，不然总是要单击按钮才能变化数据，麻烦老师再修改一下，非常感谢！