excel - excel的VBA代码 - 删除只包含大写字母的行，数据不一样

Question

寻找确定删除包含所有大写字母的行的代码。我正在准备的数据包含在 rows 的一个工作表中1:900。当前数据读取的方式是；

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

在这种情况下，到目前为止我所做的只是删除大写的行，但是如果您查看第三行，工作 GASKET 是大写的，我需要保留该行。

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 列设置的，如果它没有明显改变它。经过测试，如果我理解正确，我认为它可以解决您的问题。

编辑：这也将删除 A 列中带有空白单元格的行。如果您不想这样做，则 if 语句将更改为：

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