不好意思！老师
请查收附件.
Dim t As Table = Tables("统计")
For x As Integer = 0 To t.Rows.count-12
Dim r1 As Row = t.Rows(x-1)
Dim r2 As Row = t.Rows(x)
Dim ls As new List(Of String)
For i As Integer = r2.Index To t.Rows.count-1
If ls.Contains(t.Rows(i)("一")) = False Then
ls.add(t.Rows(i)("一"))
End If
If ls.count >= 4 Then
Exit For
End If
Next
r2("一道码") = String.Join(",", ls.ToArray)
For y As Integer = r2.Index To 0 Step -1
If ls.Contains(t.Rows(y)("一")) = True Then
t.Rows(y)("一道中") = "中"
Else 'If ls.Contains(t.Rows(y)("一")) = False Then
t.Rows(y)("一道中") = "不中"
End If
Next
Next
我写点代码实现不了.
加好友 
发短信
Post By：2019/6/1 15:14:00 [显示全部帖子]
