將內部顏色復制到單元格

Question

我的桌子上有一些彩色的單元格。 我需要將其值復制到另一列。 這是我的宏：

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

我試圖找到另一種復制帶顏色的單元格的值的方法。 現在我正在嘗試做：

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

字符串有問題

(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

為了獲得所需的效果，方法可能有所不同。 但是，我不確定這是否是您的問題的一部分。