以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  类比代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160762)

--  作者：wen123 --  发布时间：2021/2/20 15:01:00 --  类比代码 请教版主，如图：1 第一列是数据（数据有甲，乙，丙）。对比方式是用第一列第一行对比第二到十二行，如果第二到十二行没有相同的值那么第二列第一行的结果是“*无”。第一列第二行对比第三到十三行，如果第三到十三行没有相同的值那么第二列第二行的结果是“*无”。2 数据甲，乙对比，丙不对比 此主题相关图片如下：qq图片20210220175900.png 能写代码吗？

--  作者：有点蓝 --  发布时间：2021/2/20 15:33:00 --   Dim t As Table = Tables("A") For i As Integer = 0 To t.rows.count - 1         If t.rows(i)("第一列") = "丙" Then Continue For     Dim b As Boolean = false     For j As Integer = i+1 To math.min(i+11,t.rows.count - 1)         If t.rows(i)("第一列") = t.rows(j)("第一列") Then             b=True             Exit For         End If     Next     If b=False Then         t.rows(i)("第二列") = t.rows(i)("第一列") & "无"     End If Next

--  作者：wen123 --  发布时间：2021/2/20 16:31:00 --   感谢版主细致的解答！