校验身份证这样写
http://www.foxtable.com/help/topics/2624.htm
循环每一行,这样写
For Each r As Row In Tables("表A").Rows r("第二列") = ValidPIN(r("第一列"))Next