Dimsx為範圍，ar為範圍，r為範圍，bt為整數'過濾區域變量。
子測試()
設置SX = ActiveSheet。auto filter . range . special cells(xlCellTypeVisible)
對於SX的每個aR。壹個接壹個的連續區域。
對於aR中的每個r。壹行壹行
如果bt那麽
處理自動過濾的行，用r.Cells(1，2)引用R行的第二列。
否則，跳過標題行。
bt = 1
如果…就會結束
然後
末端接頭