我已經設置了一個表來獲取最後一行的內容。我想檢查從J到W最後一行的值。我想檢查所有值是否爲「是」,如果是,則將OK返回給變量。這是我到目前爲止,從下面應該清楚我想要做什麼:檢查最後一行範圍內的每個值[VBA]
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
sName = ActiveSheet.Name
For Each c In Worksheets(sName).Range(Cells(J, lastRow), Cells(W, lastRow))
If c.Value = "YES" Then
vData = "OK"
Else
vData = "Error."
End If
Next c
謝謝。
有一點要注意,我相信LASTROW = ActiveSheet.Range( 「A」 和Rows.Count).END(xlUp ).Row會給你列A中最後一行。 – MatthewD
我同意MatthewD--在你的情況下,使用.UsedRange可能會更好,它給出了一張紙的全部區域到最右邊和最底部的對齊,其中a細胞是'使用'。請注意,這包括格式化更改,這可能不是您想要的(即:如果您的最後一個值在D10中,但是您在C11中格式化,則會給您D11)。 –