因为你设置了筛选条件：
Tables(wbl).Filter = "[" & bhm & "] = 'bh'"
而新增行bhm为空，不符合条件，自然不显示。
这样改：
Dim r as row = Tables(wbl).AddNew()
r("bhm") = "bh"
加好友 
发短信
Post By：2016/3/16 11:29:00 [显示全部帖子]
