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

有姓名列，但这里即有年级，又有班级，现在想把它按年级、班级分开，这种填充如何实现？还有一列，成绩列，即有年级成绩，又有班级成绩，同样按年级班级分开，如何填充？
此主题相关图片如下：01.png

写代码逐行导：http://www.foxtable.com/webhelp/topics/2334.htm

老师，不是EXCEL表中的，是内部表中的数据。

逻辑一样的呀。遍历所有行，判断姓名列有“年级”2个字的，赋值给年级列。判断有“班”字的，并且长度大于等于5，就赋值给班级，以此类推....

参考代码：

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 

运行结果：

非常感谢老师！！

知道了，这个错误是因为成绩列中有空值，如果没有空值就不报错，解决了！！