如何在结果中算出差值

zzpsx

如何在结果中算出差值.zip (22.48 KB, 下载次数: 14)

2024-2-22 11:28 上传

点击文件名下载附件

于箱长

如果遇到重名的时候，怎么整

zzpsx

于箱长 发表于 2024-2-22 11:32
如果遇到重名的时候，怎么整

是一个班级内的，名字不重复的。

cidanji

蓝色绿色区每行数据是一一对应吗

limonet

关键字：left join

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select a.姓名,a.语文-b.语文 as 语差,a.数学-b.数学 as 数差,a.科学-b.科学 as 科差,a.社会-b.社会 as 社差,a.英语-b.英语 as 英差 " _
            & "From [Sheet1$A:G]a Left Join [Sheet1$L:R]b On a.学号=b.学号"
    Range("A2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

zzpsx

cidanji 发表于 2024-2-22 11:58
蓝色绿色区每行数据是一一对应吗

是的，谢谢

liulang0808

Sub test()
    arr = Sheets(1).UsedRange
    ReDim brr(1 To UBound(arr) * 5, 1 To UBound(arr, 2))
    r = 0
    For j = 2 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            r = r + 1
            brr(r, 1) = arr(j, 2) & "-" & arr(j, 1)
            brr(r + 1, 1) = "估分"
            brr(r + 2, 1) = "实考"
            brr(r + 3, 1) = "差值"
            For i = 3 To 7
                brr(r, i - 1) = arr(1, i)
                brr(r + 1, i - 1) = arr(j, i + 11)
                brr(r + 2, i - 1) = arr(j, i)
                brr(r + 3, i - 1) = Val(arr(j, i + 11)) - Val(arr(j, i))
            Next
            r = r + 4
        End If
    Next j
    [ab1].Resize(r, UBound(brr, 2)) = brr
End Sub

liulang0808

如何在结果中算出差值.zip (29.94 KB, 下载次数: 7)

2024-2-22 12:26 上传

点击文件名下载附件

按照两边数据完全对应处理的

zzpsx

liulang0808 发表于 2024-2-22 12:26
按照两边数据完全对应处理的

谢谢高手，我运行了代码，没有反应，不知道哪里出问题了。