PrivateSubCommandButton1_Click()Sheets("Tem").Activate"tem為原始表格ActiveSheet.AutoFilterMode=FalseSheets("Tem").Rows("1:1").SelectSelection.AutoFilter"將原始表格設為過濾狀態Selection.AutoFilterField:=10,Criteria1:="<1000""選擇過濾的位置，設定過濾的條件Sheets("Tem").Range("a1").CurrentRegion.Select"選擇過濾的內容Selection.CopySheets("Sheet1").Range("a1")"複製選擇的內容到目標表格EndSub

1、篩選後的畫面，可以直接在篩選出的單元格前面逐個增加如序號之類的資料；增加完，再展開時，只有曾經篩選出來的那些行前面有資料，其它沒篩選的行前面是沒有資料的。

2、可以將篩選出的資料行選中=>複製=>在另一空白表中貼上數值（不能直接貼上，直接貼上是全部資料，不是篩選的結果），產生篩選結果的新表進行編輯。