討論群組

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

JohnnyJY

JohnnyJY
個人積分：0分
文章編號：66789066

0分

樓主

2017-12-13 23:13

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

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

結果如下圖

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

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

謝謝指教

2017-12-13 23:13 發佈

文章關鍵字 Excel VBA 顏色高手

snare

snare
個人積分：3107分
文章編號：66789236

3107分

2樓

2017-12-13 23:35

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

X

X