参考代码
Dim p As Integer = 1Dim c As Integer = 3Dim t As Table = Tables("表A")Dim idxs As String = "-1,"t.filter = ""For i As Integer = p*c To p*c+c-1 idxs &= t.rows(i)("_Identify") & ","Nextt.filter = "_Identify In (" & idxs.trim(",") & ")"