不区分大小写的格式

我有一个Excel表格，其中包含一些值，如“病态”，我想按下button时用删除线格式化。 我有下面的代码，如果单元格的值是“生病”，而不是如果值是“生病”有完美的工作是否有一种方法，我可以更改代码，使其不区分大小写？

For Each rng In ws.Range("E1:E" & lastrow) If rng.Value = "Sick" Then ws.Range("A" & rng.Row).Resize(1, 2).Font.Strikethrough = True End If Next rng 

Answer 1

将该行更改为：

  If LCase(rng.Value) = "sick" Then 

这将查看范围值的小写版本，并检查它与小写string。 这就保证了不pipe范围值如何大写，小写字母总是与小写字母对比。

顺便说一下，VBA还支持UCase()函数以及转换为全部大写的，所以你的问题也可以用下面的方法来解决：

  If UCase(rng.Value) = "SICK" Then