参考
Dim ls As New List(Of string)
For Each r As Row In Tables(e.Form.name & "_table1").Rows If gx.Checked = True Then r.Checked = True
If ls.contains(r("第一列") & "|" & r("第二列")) Then
ls.add(r("第一列") & "|" & r("第二列"))
End If Else r.Checked = False End IfNext
然后循环ls即可,如
For Each str As String in ls
msgbox(str.split("|")(0))
msgbox(str.split("|")(1))
Next