将某些彩色单元格转移到其他 Excel 工作表答案

【问题标题】：Transferring certain colored cells to other excel sheets将某些彩色单元格转移到其他 Excel 工作表
【发布时间】：2013-06-02 18:45:32
【问题描述】：

我想知道是否可以将某些彩色单元格转移到其他 Excel 工作表。我已将批准的单元格涂成绿色，将未批准的单元格涂成红色。我希望将此数据分发到两种不同的电子表格，一种称为已批准的工作表，另一种称为未批准的工作表。我之所以要自动执行此操作，是因为大约有 80k 行数据，而手动执行此操作将花费很长时间。

感谢您的帮助和提供的所有信息。

【问题讨论】：

标签： excel data-transfer

【解决方案1】：

如果您不介意进行两次复制/粘贴，可以插入过滤器

然后过滤特定的颜色。之后，复制相关单元格并粘贴到所需的工作表中。

然后重复其他颜色。

【讨论】：

所以如果我完成这些步骤，那么颜色会自动转移。同样由于某种原因，我在过滤器显示屏上看不到颜色选项。
@DylanDavis 嗯，很奇怪。您是否选择了有颜色的单元格的列？我以前从来没有遇到过这个问题:(
我明白了，谢谢你的帮助。我把它们按颜色分类。我正在尝试复制和粘贴，但我想我可能将太多数据从一张纸复制到另一张纸。我认为这是因为我正在复制已批准的行（绿色），大约为 26k，当我粘贴到已批准的工作表中时，仅出现 8K。你们能帮我解决这种情况吗？
@DylanDavis 好的，你能说出你正在采取的具体步骤吗（选择哪一行/列到哪一行/列，按哪些键/组合）？我也想知道你的 RAM 和 excel 版本是什么。请将它们添加到您的问题中，以便更容易阅读。

【解决方案2】：

由于我猜你是根据特定条件给单元格着色，所以你可以根据这个条件复制到其他工作表。

您可以使用上面建议的过滤器，或者排序然后复制。如果你在编写代码，你可以编写一些 VB 脚本来做到这一点

我认为应该是这样的（我不是 VBA 专家）

Set mrNames = Sheets("MyDataSheet").Range("C2:C100")

For Each cell In mrNames

If cell.Value = "Approved" Then
cell.EntireRow.Copy
Sheets("Approved").Range("C" & Rows.Count).End(xlUp).Offset(1, -2).PasteSpecial
    End If

【讨论】：

我做了一些编码，但我认为自己是新手。如果我的情况有一个简单易懂的 VB 代码，无论如何我都愿意让这项任务更有效率。
我明白了，谢谢你的帮助。我把它们按颜色分类。我正在尝试复制和粘贴，但我想我可能将太多数据从一张纸复制到另一张纸。我认为这是因为我正在复制已批准的行（绿色），大约为 26k，当我粘贴到已批准的工作表中时，仅出现 8K。你们能帮我解决这种情况吗？