VBA/Excel If ... Then ... ElseIf ... Else Statementコピーダウン列の問題

Question

これはわかりました。私はそれを実行すると、それはかなりInterior.Colorを探し、それが一致する場合、それは私に前記セルの色のText値を与えます。データがある限り、このIfステートメントをコピーして列全体に貼り付けるにはどうすればよいですか？

私はこのためのVBAのバージョンがわかりません。

If Range("F2").Interior.Color = 255 Then 
Range("AE2") = "Red" 
ElseIf Range("F2").Interior.Color = 65252 Then 
Range("AE2") = "Green" 
Else 
Range("AE2") = "New" 
End If 

が、私はそこに列F（コピー/貼り付け）には、データをませんが、それはそれに応じて変更されるまで、文全体が列AEを下にコピーすることを望む、とダウン細胞を、次のとおりです。私が持っているので、VBAのコードは次のようになります。

うまくいけば私は理にかなっています。

はあなたに

Answer 1

ありがとう、あなたがデータを保持している、私はそれが列Fだと仮定どの列言及していなかったので、あなたのニーズに応じて簡単にコードを変更することができます。

また、IFsをSelect Caseに変更しました。将来的にはテストする条件が増えます。

' assuming your column that has data is Column F >> modify it according to your needed column 
lastRow = Cells(Rows.count, "F").End(xlUp).row 

For lRow = 2 To lastRow 
    Select Case Range("F" & lRow).Interior.Color 
     Case 255 
      Range("AE" & lRow) = "Red" 

     Case 65252 
      Range("AE" & lRow) = "Red" 

     Case Else 
      Range("AE" & lRow) = "New" 

    End Select 
Next lRow