通过制表符颜色将值移动到新的工作簿？
我有一个包含多个数据表的大型报告，以及大约12-20张报告。 我目前必须做的是移动/复制，所有的选项卡，然后通过复制和粘贴值来删除透视引用。 我已经用颜色编码了哪些应该组合在一起。
我当然是VBA新手，但想知道有人能帮我一把。 无论如何参考VBA中的标签颜色？ 如果有的话可以提供一个快速的代码，可以为我做这个。
如果一个标签有一个颜色分配
Activesheet.Tab.Color 将返回RGB值（作为一个长）。 如果没有分配颜色，则返回False
我不确定你正在做什么，但除了Tim说你可以通过使用颜色索引来访问标签的颜色，例如：
ActiveSheet.Tab.ColorIndex
这将返回一个匹配简单颜色的数字。
有一张桌子，你可能会发现这里有用 ： http : //dmcritchie.mvps.org/excel/colors.htm
要循环你的工作表，你可以写一个简单的循环，如：
Dim Sheetcount As Integer Dim i As Integer Sheetcount = ActiveWorkbook.Worksheets.Count For i = 1 To Sheetcount If ActiveWorkbook.Sheets(i).Tab.ColorIndex = 3 Then 'just an example color 'your code here Next i