主题：这样的填充效果如何实现？

Dim t As Table = Tables("表A")

Dim nj, bj, xm, cj, njcj, bjcj As String 

For Each r As Row In t.Rows

    xm = r("姓名") 

    cj = r("成绩")

    If xm.IndexOf("年级") <> -1 Then '判断年级

        nj = xm

        bj = ""

        njcj = cj

        bjcj = ""

    ElseIf xm.IndexOf("班") <> -1 Then '判断班级

        bj = xm

        bjcj = cj 

        

    Else '普通人员 '普通人员数据不改变 

        

    End If 

    r("年级") = nj

    r("班级") = bj

    r("年级成绩") = njcj

    r("班级成绩") = bjcj

Next 

此主题相关图片如下：成绩分解.jpg