主题：[讨论]挑战狐狸爸爸

Dim i As Double = Tables("表A").Rows.count
Dim h As Row
Dim j As Double
For j = 0 To i-1
    h=Tables("表A").Rows(j)
    If h("第三列") Like "j*" Then '找到 以 j 开头的
        output.show("找到表格的位置是 " & j+1) '输出到控制台
    End If
Next

我试试这个