将内部颜色复制到单元格

我有桌子，有一些细胞着色。 我需要将它们的值复制到另一列。 这是我的macros：

Sub exa() Dim rng As Range Dim row As Range Dim cell As Range Set rng = Range("B:AJ") For Each row In rng.Rows For Each (cell).Interior.Color = RGB(138, 255, 132) in row.Cells Area.Offset(, 40).Value = Area.Value Next cell Next row End Sub 

我正试图find另一种方法来复制collorized细胞的值。 现在我正在尝试：

 Sub test() Dim rng As Range Dim r As Integer Set rng = ActiveSheet.Range("B2:I8") For Each Row In rng.Rows For Each cell In Row.Cells If cell.Interior.Color = RGB(138, 255, 132) Then ' cell.Copy Destination:=Sheets("HMPB").Range("AU") Area.Offset(, 40).Value = Area.Value Next cell Next Row End Sub 

string有问题

 (cell).Interior.Color = RGB(138, 255, 132) in row.Cells 

这是我需要的：

Answer 1

为了得到关于颜色的代码：

 For Each row In rng.Rows For Each cell In row.cells cell.Interior.Color = RGB(138, 255, 132) Next cell Next row 

要获得您需要的效果，方法可能会有所不同。 但是，我不确定这是否是您的问题的一部分。