VBA/Excel如果...那麼... ElseIf ... Else聲明覆制下一欄問題

好吧，我已經明白了，我的工作方式就是我需要的。當我運行它時，它幾乎查找了Interior.Color，如果它匹配，則會給出所述單元格顏色的Text值。只要有數據，我如何將此If語句複製並粘貼到整列中？VBA/Excel如果...那麼... ElseIf ... Else聲明覆制下一欄問題

我不知道這個VBA版本。因此，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，並遵循細胞下降。

希望我有道理。

謝謝

來源

2016-07-22 user4223089

，因爲你沒有提到這列存放數據，我以爲這是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

來源

2016-07-22 17:35:00

列F有彩色單元格，列AE有結果。所以，我想要的基本上就是讓excel告訴我單元格的顏色。這有幫助嗎？ – user4223089

@ user4223089不正確，列F裏面也有文字嗎？如果不是，整個範圍內的哪一列保存數據？從F到AE的其中一列是否包含相關數據？ –

因此，F列有數據和填充顏色（紅色，黃色或綠色）。上面的我的IF語句告訴我它是否是這些顏色代碼中的任何一個，如果不是那麼它說「新」。所以，所有的作品都很棒，我只需要將它複製並粘貼到整列，即列AE。 – user4223089

VBA/Excel如果...那麼... ElseIf ... Else聲明覆制下一欄問題

回答

相關問題