将基于单元格值的工作表移动到另一个工作簿答案

【问题标题】：Move Worksheet based off a cell value to another workbook将基于单元格值的工作表移动到另一个工作簿
【发布时间】：2022-09-27 15:13:08
【问题描述】：

我希望有人可以帮助解决这个问题，但我正忙着做任何事情。我有一个包含很多工作表的相当大的工作簿，我有一个运行并使用“触发器”填充 B 列的报告 A 列：是工作簿中所有工作表的名称。 B 列是需要移动特定工作表的指示符，例如\“是的\”。我需要将指定的工作簿移动到另一个工作簿中。

我只能找到移动单元格的适用示例，但它不起作用。任何帮助或方向将不胜感激！

【解决方案1】：

也许 for each 循环会很好。

将 wkbk1 调暗为工作簿 - 主工作簿将 wkbk2 调暗为工作簿 - 您的其他工作簿

设置 wkbk1 = ActiveWorkbook 设置 wkbk2 = "在此处输入名称"

暗淡为工作表

对于 wkbk1.Sheets 中的每个 ws

'使用 if 代码检查是否满足某些条件' ws.Move wkbk2.Sheets(Sheets.Count)

下一个

【讨论】：

【解决方案2】：

我将有一个循环遍历 A 列，并通过检查旁边的 B 列来检查工作表是否需要移动。如果 B 列包含触发器，将使用 if 条件进行检查，则将工作表移动到另一个工作簿。

For i = 1 To Sheets("Sheet1").End(xlDown).Row

如果 Sheets("sheet1").Range("B" & i) = "Yes" 那么

Sheets(Sheets("sheet1").Range("A" & i)).Move After:=Workbooks("Otherworkbook.xls").Sheets(1)

别的

万一

接下来我

像这样的东西，但可能需要用完整的文件名和目录声明第二个工作簿。

【讨论】：