求一段代码，快速查询小明同学的同班同学

casablanca997

表1



表2

需要实现：
1. 在shee2中输入学生姓名后，点击查询按钮，自动获取跟学生同班级的学生姓名；
2. 在sheet2中点击清除，自动删除表头之外的全部内容
求一段VBA

casablanca997

新人小白
首贴求帮助

gwjkkkkk

请参考。。。

cjc209

来个字典法
Sub 字典法()
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
     For i = 2 To Sheet1.Range("A" & Rows.Count).End(xlUp).Row
     dic(Sheet1.Cells(i, 2).Value) = dic(Sheet1.Cells(i, 2).Value) & "," & Sheet1.Cells(i, 1).Value
     Next
    班级 = Application.VLookup(Sheet2.Cells(2, 1), Sheet1.Range("A:B"), 2, 0)
    brr = Split(Mid(dic(班级), 2), ",")
    arr = Application.Transpose(brr)
    Sheet2.Range("B2").Resize(UBound(arr), 1) = arr
End Sub

洋务德雷

sql+vba的用法。一通百通

casablanca997

洋务德雷 发表于 2023-3-1 22:23
sql+vba的用法。一通百通

哇 验证下不错 谢谢

ykcbf1100

参与一下。

justdoit2003

用公式来解答一下



D4公式为：

1. =OFFSET($B$1,MATCH(D2,A:A,0)-1,0)

复制代码

E2公式为数组公式，三键：

1. =IFERROR(OFFSET($A$1,SMALL(IF(($B$2:$B$16=$D$4)*($A$2:$A$16<>$D$2),ROW($B$2:$B$16),""),ROW(A1))-1,0),"")

复制代码