如果您要将特定格式的单元格或彩色的单元格从一列复制到下一列，那么本文适合您。在本文中，我们将学习如何使用VBA代码复制彩色单元格。

以下是我们拥有的数据的快照，即列A包含黄色单元格很少的数据。

提取仅以黄色突出显示的数据；我们需要创建一个UDF以仅在B列中显示有色单元格

img1

  • 要创建用户定义函数，我们将遵循以下步骤：

单击“开发人员”选项卡。从“代码”组中，选择“ Visual Basic”

img2

  • 我们需要在标准模块

中复制以下代码===函数IsYellow（ByRef r作为范围）

如果r.Interior.ColorIndex = 6，则

IsYellow = r.Value

其他

IsYellow = vbNullString

如果

结束

结束函数

img3

===

在单元格B1中，公式将为* = IsYellow（A1）

img4

上面的代码专门匹配仅用于黄色的6号颜色。因此，udf将仅提取包含color＃6的值。

如果我们要提取红色单元格，那么我们需要检查指定的颜色编号并简单地用黄色编号替换。

这样，我们可以使用vba代码检索黄色字体颜色单元。

image 4