Dim allTrue As boolean = true
For Each r As Row In Tables("窗口1_Table1").Rows
If r("第一列") = False Then
allTrue = False
exit for
End If
Next
msgbox(allTrue)