从总成绩中提取本班语文成绩

Qs18 · 发表于 2024-11-11 12:33

试试..........

yanglinzi · 发表于 2024-11-11 15:34

yanglinzi · 发表于 2024-11-11 15:35

练练手。。

3190496160 · 发表于 2024-11-11 15:45

=XLOOKUP(A2,总成绩!$A$2:$A$20000,总成绩!$B$2:$H$20000,"")

3190496160 · 发表于 2024-11-11 15:46

xlookup函数就可以解决了，不必vba吧

成绩分析.rar (15.33 KB, 下载次数: 1)

lizhipei78 · 发表于 2024-11-11 15:50

楼主这个最好是用学号或者什么来作关键词，以姓名容易重复啊

lizhipei78 · 发表于 2024-11-11 15:51

成绩提取.rar (15.1 KB, 下载次数: 3)

WPS打开

gwjkkkkk · 发表于 2024-11-11 18:50

Option Explicit
Sub test()
Dim br, cr, k&, i&, j&, iPosCol&

br = Worksheets(3).[A1].CurrentRegion.Value
For k = 1 To 2
      With Worksheets(k)
         cr = .[A1].CurrentRegion.Value
         For j = 1 To UBound(br, 2)
            If br(1, j) = "语文" Then iPosCol = j: Exit For
         Next j
         For i = 2 To UBound(cr)
            cr(i, 2) = Empty
            For j = 2 To UBound(br)
            If br(j, 1) = cr(i, 1) Then cr(i, 2) = br(j, iPosCol): Exit For
            Next j
         Next i
         .[A1].CurrentRegion.Value = cr
      End With
Next k
End Sub

gwjkkkkk · 发表于 2024-11-11 18:53

参与一下。。。

cai2532 · 发表于 2024-11-11 23:33

这个学习下

		自动登录	找回密码
密码			免费注册

[求助] 从总成绩中提取本班语文成绩

评分

评分