excel vba 判定顏色最後一行 (高手請進)

各位大大,高手打擾了
小弟初學excel 有個問題請教
想要透過VBA選取黃色最前一列與最後一列
中間會有其他顏色
並選取A欄倒J欄(如圖示)
excel vba 判定顏色最後一行 (高手請進)

結果如下圖

煩請各位高手指教感謝您謝謝指教

2017-12-13 23:13 #1

文章關鍵字

Excel VBA 顏色高手

snare

3127分

2樓

snare

個人積分：3127分

文章編號：66789236

JohnnyJY wrote:
想要透過VBA選取黃色最前一列與最後一列...(恕刪)

Sub test()

allrow = 20: firstrow = "": lastrow = ""
For i = 1 To allrow
If Cells(i, 1).Interior.Color = vbYellow And firstrow = "" Then firstrow = i
If Cells(allrow + 1 - i, 1).Interior.Color = vbYellow And lastrow = "" Then lastrow = allrow + 1 - i
If firstrow <> "" And lastrow <> "" Then Exit For
Next i
Range(Cells(firstrow, 1), Cells(lastrow, "j")).Select

End Sub

excel vba 判定顏色 最後一行 (高手請進)

小惡魔新聞台

今日熱門文章 網友點擊推薦！

excel vba 判定顏色最後一行 (高手請進)

今日熱門文章　網友點擊推薦！