Dim r & amp，我& ampj為字節，rg為範圍，rx & amp，sh As工作表，a$，arr
Arr = Array（“銅山”、“洞庭”、“馬山”）
r =單元格（行。數數，7）。結束（三）。排
a =活動表。名字
設置sh =工作表。增加
先令Name =“過濾結果“
床單（壹）。挑選
先令範圍（“a1“）。resize（1，11）= Range（“a2“）。調整大小（1，11）。價值
對於i = r到3步-1
設置rg =單元格（I，7）
如果rg & lt那就1800
rg。全部刪除
其他
對於j = 0至下界（arr）
如果rg（1，5）。文本如“*”& amp；arr（j）和amp“*”然後
先令單元格（rx + 2，1）。調整大小（1，11）= rg。調整大小（1，11）。價值
rx = rx + 1
如果…就會結束
然後
如果…就會結束
然後
末端接頭