VBA - 按字体颜色分割单元格值

时间:2013-08-29 11:31:53

标签: excel vba excel-vba

我收到了一个包含一系列单元格的电子表格,每个单元格都包含一个数字列表。

每个数字都有一个字体颜色,因此在一个单元格中,您可能有两个橙色数字,一个红色数字和一个绿色数字。我需要区别对待每种颜色;例如,我可以按原样计算绿色和红色数字,但我需要查看每个橙色数字是否出现在范围内的前一个单元格中,然后再计算它。

数字列表以逗号分隔,因此获取单个数字应该不是问题,但如何保留和使用颜色信息?

我发布了代码,但坦率地说,我不知道从哪里开始。

提前致谢!

1 个答案:

答案 0 :(得分:0)

使用此解决:

http://www.mrexcel.com/forum/excel-questions/656265-excel-visual-basic-applications-count-items-cell-color-font.html

本质上是一个循环,使用InStr在字符串中查找逗号(在本例中为单元格的内容),然后查看逗号后面的下一个字符的颜色。我刚编辑它以说明ColorIndex = 46,将后续字符复制到数组中的空格中。然后我可以查看数组中的每个项目,并将其与范围中的其他单元格进行比较,以查看它是否出现在其他位置。