いくつかのセルが色付けされたテーブルがあります。それらの値を別の列にコピーする必要があります。ここに私のマクロがあります:
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
これは私が必要なものです: