Excel VBA 篩選器另存為工作表

子資料排序（）。

falsedim sh as worksheet

對於 I = 1 分支滲透"單詞排名").range("a:a"))

set sh = :=worksheets(for j = 2 to sheets("單詞排名").d65536].end(3).row

兇猛的脊如果片（"單詞排名").cells(j, 3) =1 and sheets("單詞排名").cells(j, 4) =i then

單詞排名").cells(j, 2)

end if

nextFinchback = 格式（i，"00")= true

end sub

1. 首先，在 sheet1 中寫下所需的過濾條件。

2.然後單擊檔案副本的目標excel，然後單擊上方工具欄中的“資料”。

3.單擊“排序和過濾”頂部的“高階”選項，將彈出“高階過濾”框。

4. 單擊“將篩選結果複製到其他位置”。

5.接下來，返回“列表區域”，然後在sheet1中選擇原始資料。

6. “條件區域”也應回到 Sheet1 中先前編寫的條件。

7.返回檔案副本的目標excel，然後“複製到”目標單元格中需要複製的位置。

8. 複製完成後，單擊左上角的檔案，然後選擇另存為。

Excel 可以通過資料---,高階篩選來高階選擇所需的內容，並且可以刪除重複項，但無法跨表進行篩選，前提是可以先將成本篩選命令複製到此表，然後再複製到另乙個工作表。 建議使用資料透視表，資料透視表更易於使用且分析資料的速度更快。 在Excel中，您可以通過插入---資料透視表或按 Alt+D+P 鍵和快捷鍵來執行此操作。

那是因為你複製的方式不對，過濾後要根據行數來選擇，不能直接選擇所有的**內容。 然後點選複製，如果隱藏行數和顯示行數中有文字框，則只能複製顯示的行數。

哦，alt+; 找到顯示值，然後按複製，只操作顯示值。

選擇範圍後，不能直接按複製，需要先按Alt+; 組裝，然後按複製、貼上，就完成了。

建立原始表的副本，在乙個表上對其進行篩選，然後另存為。

Excel的過濾功能非常強大，可以在資料區域自動過濾，也可以在高階過濾中將資料過濾到其他區域，具體方法如下：

1.選擇要儲存結果的位置，如果要過濾結果並將它們放入新工作表中，則必須首先開啟新工作表，而不是儲存資料的表。

2.在結果工作表中，單擊“資料”，“過濾器”和“高階過濾器”。

3. 在“高階過濾”視窗中，選擇“將過濾結果複製到其他位置”。

4.以下三項需要選擇區域，根據提示選擇“列表區域”（即原始資料的列），“條件區域”（注意條件區域的標頭與原始資料標頭相同，第二行開始寫條件，如大於， 少於幾個等，這裡不介紹，請檢視相關幫助）、“複製到”（是您的結果儲存的地方）。

5.選擇單元格後，只需單擊“確定”。

alt+;是選定的可見單元格。

以下** 將 WS 工作表中第 B 行 E 列的內容與第 1 列複製到 TS 表的 A 列：

dim i,n,j

n=ws.[b65536].end(xlup).rowj=1for i=1 to n

if ,"b")=1 then

a")=,"e")

j=j+1end if

next i

sub copyselectedsheets()'將新工作簿名稱定義為 newbooknamedim newbookname 定義為字串'獲取原始工作簿（此處的名稱是第乙個 ** 中單元格 A1 中的值，作為 newbookname 的值。

newbookname = workbooks("").worksheets(1).range("a1").text

將工作表 1、3 和 4 從原始工作簿複製到新的空白工作簿工作簿 （"").worksheets(array(1, 3, 4)).copy

將新工作簿重新命名為 newbookname 的值 newbookname

end sub

只能儲存整個工作簿。

sub mm()

filename:=[a1], fileformat:=xlnormal, _

password:="", writerespassword:="", readonlyrecommended:=false, _

createbackup:=false

end sub

儲存到新的 **。

sub test()

dim sheetname1 as stringdim sheetname2 as stringsheetname1 =

sheetname2 = "a1")

sheetname2

worksheets(sheetname1).range("a3:a6").copy worksheets(sheetname2).range("a1")

end sub

sub copy()

b = "圖 1 表名").

c = "圖 1 表名").

j = 0for i = 1 to b

if "圖 1 表名").cells(i,3) <"" then

j = j + 1

for m = 1 to c

圖 2 表名").cells(j, m) = "圖 1 表名").cells(i, m)

nextend if

nextend sub

試試吧，我剛剛學會了，第 6 行如果"圖 1 表名").cells（i，3），最後 3 是你說的 C 列的列號，可以根據你的需要進行調整，如果用截圖 1 對應的工作表名稱替換，你的圖 1 表的名稱就可以了

錄製巨集只能作為參考，不能完全實現您的功能。

讓我們談談您將要實現的功能。

A 列處於隱藏狀態。 有關係嗎。

1.首先，找到要操作的excel，右鍵單擊excel圖示，然後選擇 開啟命令 在彈出的右鍵選單中。

2.從開啟的工作簿左下角的工作表選項卡中，您可以看到工作簿預設生成工作表。

3.按組合鍵 ALT + F11快速調出VBA視窗。

4.點選 插頁 在VBA介面的選單欄中，然後選擇模組命令，將彈出另存為模組視窗。

5. 將以下內容複製並貼上到“另存為”的模組視窗中：

sub new_worksheet()

sheets(1).select

end sub

它將儲存為 sheet2 工作表。

xls.[a1] 替換為"a1")

activesheet，這是你的新工作表，而不是你有資料的工作表，你可以先啟用你有資料的工作表，比如：工作簿（"包含資料的工作表的名稱").worksheets(1).活動，然後複製

或者，在建立新工作簿之前，如果包含資料的工作簿中的工作表是當前活動的工作表，則可以先將其分配給變數。 dim as =new worksheet

set as=activesheet

然後建立乙個新的工作表，複製：

a2:f20").specialcells(xlcelltypevisible).copy "a1")

是4號線嗎"worksheets"成為："sheets“

建議您錄製巨集並檢視。

選擇過濾後的行資料 - 複製 - 新建工作表 - 貼上 - 另存為。

你把桌子給我，我會篩選你。