Dim t As Table = Tables("扫描数据处理")
Dim nj, bj, xm, cj,cj1,cj2,cj3,cj4, yxcj, yxcj1,yxcj2,yxcj3,yxcj4 As String
For Each r As Row In t.Rows
xm = r("扫描数据")
cj = r("录取数")
cj1 = r("最高分")
cj2 = r("最低分")
cj3 = r("平均分")
cj4 = r("差值")
If xm.IndexOf("【") <> -1 Then '判断有“【”符号行
nj = xm
bj = ""
yxcj = ""
yxcj1 = ""
yxcj2 = ""
yxcj3 = ""
yxcj4 = ""
ElseIf xm.IndexOf("[") <> -1 Then '判断有“[”符号行
bj = xm
yxcj = cj
yxcj1 = cj1
yxcj2 = cj2
yxcj3 = cj3
yxcj4 = cj4
Else '普通人员 '普通人员数据不改变
End If
r("是否征集") = nj
r("院校名称码") = bj
r("院校录取数") = yxcj
r("院校最高分") = yxcj1
r("院校最低分") = yxcj2
r("院校平均分") = yxcj3
r("院校差值") = yxcj4
Next
老师,这段代码是判断 “【”和"["这两个符号是否存在,如果存在就按要求填充数据,我想修改一下:
ElseIf xm.IndexOf("[") <> -1 Then '判断有“[”符号行——就是这行代码中的"["这个符号,修改成由0到9组成的4位数字,这个四们数字如何判断,谢谢老师!