最左边的勾选？你可以控制filter，再导出
dim idx as string = "-1,"For Each r As Row In Tables("表A").GetCheckedRows idx &= r("_Identify") & ","NextTables("表A").filter = "_Identify In (" & idx.trim(",") & ")"
加好友 
发短信
Post By：2015/8/17 14:40:00 [显示全部帖子]
