Office中国论坛/Access中国论坛

标题: 求助 [打印本页]

作者: 小百 时间: 2015-12-26 22:52
标题: 求助
怎样将表一转变成表二，用函数或VBA都可以，急啊

作者: access新新新手 时间: 2015-12-27 08:48
本帖最后由 access新新新手于 2015-12-27 08:52 编辑

看看是否符合要求
Sub tst()
Dim i, j, ar, k
With Sheet1
[g:i] = ""
      [g1] = "班级": [h1] = "科目": [i1] = "成绩"
      ar = [a65536].End(xlUp).Row
      For i = 2 To ar
         If .Cells(i, 1) <> .Cells(i + 1, 1) Then
            j = [g65536].End(xlUp).Row
            For k = 1 To 4
                  .Cells(k + j, 7) = .Cells(i, 1)
                  .Cells(k + j, 8) = .Cells(1, 1 + k)
                  .Cells(k + j, 9) = .Cells(i, 1 + k)
            Next
         End If
      Next
End With
End Sub

作者: access新新新手 时间: 2015-12-27 08:55
本帖最后由 access新新新手于 2015-12-27 08:56 编辑

请看附件。。。。

作者: 小百 时间: 2015-12-27 11:01
谢谢

作者: 小百 时间: 2015-12-27 11:11
非常谢谢楼上的，请再给一个代码解决这个表的问题，求加权平均

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)