标题：VBA清除table里所有合约，请赐教。

VBA清除table里所有合约，请赐教。主要用于筛选符合条件的合约放到指定板块，但是每次个数不一样，如果这次比上次少，这次的前面的几个被覆盖替换掉了，但后面几个由于没有覆盖，还是原来合约。所以想每次重新筛选之前想把该板块（table）里之前筛选的合约全部清除，然后在按照条件选择新的合约到该板块。

清空板块里的所有品种，然后在TABLE显示板块不就解决了？

 Dim block 
 
 Set block = CreateObject("stock.block")
  
 block.Open "自设股", 1
 
 For i = 0 To block.Count - 1
  block.removeat (0)
 Next

 block.tosave "自选", "自选股"