Question

怎么用EXCEL VBA实现符合条件的复制工作表

请教各位老师，在下刚刚VBA入门
我想要实现的功能是，通过对“选择”工作表内的数据进行判断，符合条件的复制对应的工作表到新建工作簿里，最终筛选形成1个包含所有符合条件工作表的excel工作簿。

我用的是if，我的思路是罗列出所有符合的条件，方法有点笨，语句是这样的
sub 筛选工作表()
If Sheets("选择").Range("A1").Value = 1 Then
Sheets("1").Copy
ElseIf Sheets("选择").Range("A2").Value = 1 Then
Sheets("2").Copy
......
End If
End sub

运行的结果，只复制出第一个符合条件的工作表。
无法实现一次性复制出所有符合条件的工作表，并且让所有工作表在同一个工作簿中

因此向各位老师求教！十分感谢！
“选择”工作表中的内容：
A B
1 1 1
2 1 2
3 1 3
4 1 4

还有工作表“1”、“2”、“3”、“4”
目的：A列为判断，B列为表页名称，为1则复制输出对应名称的表页，根据各位的前辈的意见，已将语句改为以下所示
症状：复制出第一个判断有效的表页后，提示“下标错误”，我猜测是使用copy的方法不正确，请各位前辈给予修正的建议

Sub 筛选工作表()
Dim i As Integer
Dim s As String

For i = 1 To 4
If Sheets("选择").Range("A" & i).Value = 1 Then
s = Sheets("选择").Range("B" & i).Value
Sheets(s).Copy

End If
Next i
End Sub

Answer 1

使用了if，就是满足了第一个条件后，就不再继续判断其他，当然只有一个了。你应该用循环去进行判断
看你的代码你似乎是想根据选择这个表的A列是否为1来判断第几个工作表被复制到新工作簿中，是这样吗？

追问

是的，凡是A列为1所对应的工作表，都复制出来

追答

你的新工作簿是指定的，还是新建的？

追问

新建的，但是所有复制出来的工作表要在同一个工作簿中

追答

你以选择表的A列行数为循环，符合的就复制到新的工作簿中最后一个工作表之后即可。
另外，建议你选择表用两列来处理，A列为工作表名称，第二列用于选择是否复制，这样更容易处理

Answer 2

用个循环套一下：
sub 筛选工作表()
For i = 1 to 100
If Sheets("选择").Range("A" & i).Value = 1 Then
Sheets(i).Copy(目标区域)
End If
next i
End sub
如果你的表名不是1、2、3……那么先将表名建成数组然后再用FOR来循环。

Answer 3

我觉得你程序中逻辑错误。
elseif有问题，非此即彼，导致只复制出一个工作表。
建议在循环语句中，复制一个后马上粘贴一个，再复制下一个，粘贴下一个……