求助excel实时查询如何改成索引一整行并复制内容

1sdffg

目前有做好的一个窗体查询，就是看能不能改成可以索引一行的，然后可以在窗体复制需要的内容，求大佬改一下，告诉我原理 一年3班花名册.7z (34.53 KB, 下载次数: 12)

2024-8-15 18:42 上传

点击文件名下载附件

3190496160

Sub SetListBox()
Dim i As Long, j As Long
ListBox1.Clear
w = ""
With ListBox1
    .ColumnCount = 7 '设置列数
    For j = 1 To 7
        w = w & Sheet1.Cells(1, j).Width & ";"
    Next
    w = Left(w, Len(w) - 1)
    .ColumnWidths = w
    .ColumnHeads = False '是否显示列标题
    a = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    If a < 2 Then a = 2
    ar = Sheet1.Range("a1:g" & a)
    ReDim my(1 To a, 1 To 7)
    For j = 1 To 7
        my(1, j) = ar(1, j)
    Next j
    b = 1
    For i = 2 To a
        m = 0
        For j = 1 To 7
            If ar(i, j) Like "*" & UCase(TextBox1) & "*" Then
                m = m + 1
            End If
        Next j
        If m > 0 Then
            b = b + 1
            For j = 1 To 7
                my(b, j) = ar(i, j)
            Next j
        End If
    Next i
    ListBox1.List = my
End With
End Sub

3190496160

一年3班花名册.rar (26.25 KB, 下载次数: 12)

2024-8-16 09:31 上传

点击文件名下载附件

3190496160

修改了模糊查询的代码，供参考
至于复制控件中整行，关键是要看你复制后要干什么？

1sdffg

3190496160 发表于 2024-8-16 09:32
修改了模糊查询的代码，供参考
至于复制控件中整行，关键是要看你复制后要干什么？

抱歉我上面没有表达清楚，查询出来的结果能不能复制文本，如若再加一列查询的我该改哪个地方。。

3190496160

1sdffg 发表于 2024-8-16 15:39
抱歉我上面没有表达清楚，查询出来的结果能不能复制文本，如若再加一列查询的我该改哪个地方。 ...

答非所问，针对我的疑问来回答
再加一列，谁知道你增加到什么地方呢？提问题要具体

1sdffg

3190496160 发表于 2024-8-16 21:43
答非所问，针对我的疑问来回答
再加一列，谁知道你增加到什么地方呢？提问题要具体

加到K列，比如查询出来的，我想复制【家长联系方式】直接复制电话号码，或者【家长姓名】结果出来我直接复制人名

3190496160

1sdffg 发表于 2024-8-16 23:27
加到K列，比如查询出来的，我想复制【家长联系方式】直接复制电话号码，或者【家长姓名】结果出来我直接 ...

呵呵呵，复制后你要干嘛？一次性把问题表述清楚呀

1sdffg

3190496160 发表于 2024-8-19 17:00
呵呵呵，复制后你要干嘛？一次性把问题表述清楚呀

呃，只是希望可以复制搜索出来的结果，，，，，，