excel的VBA代碼 - 刪除只包含大寫字母的行，數據不像

Question

尋找確定要刪除包含全部大寫字母的行的代碼。我準備的數據包含在來自行1:900的一個工作表中。當前數據讀取的方式是;

I WANT TO DELETE THIS LINE 
I want to keep this line 
243-4291 GASKET I want to keep this line 

在這種情況下，我已經設法到目前爲止做的一切是大寫的刪除行，但是如果你看一下3號線的工作墊圈上的情況下，我需要保持該行。

Answer 1

編輯：加里的建議，向後運行，不跳過迭代。

這是你在找什麼？

Sub DelCaps() 
For i = 900 to 1 Step -1 
If Range("A" & i).Value = UCase(Range("A" & i).Value) Then 
Range("A" & i).EntireRow.Delete 
End If 
Next i 
End Sub 

這是爲列A設置的，如果它沒有明顯改變它。經過測試，如果我理解正確，我認爲它解決了您的問題。

編輯：這也將刪除列中的BLANK單元格的行。如果你不希望這樣做，if語句更改爲：

If Range("A" & i).Value = Ucase(Range("a" & i).Value) and Range("a" & i).Value <> "" Then