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“

建议您录制宏并查看。

选择过滤后的行数据 - 复制 - 新建工作表 - 粘贴 - 另存为。

你把桌子给我，我会筛选你。