Excel技术问题：判断B列单元格首字符为z时设置S列为Q/A

嘿，我瞅了下你写的代码，问题其实挺容易揪出来的，而且还有个细节可以优化，让它完全符合你的需求：

1. 原代码的直接错误 #

你的公式末尾多了一个多余的右括号！原代码里的"=IF(LEFT(B5,1)=""z"",""Q"",""A""))"最后多了个)，这会导致Excel无法识别这个公式，直接报错。

2. 修正后的基础版本（不区分大小写） #

如果你的需求只是匹配第一个字符是z（不管大小写，大写Z也会被识别），那修正语法后的代码就能正常运行了，记得先获取B列的最后行号：

Dim lRow As Long
' 获取B列最后一个非空单元格的行号
lRow = Cells(Rows.Count, "B").End(xlUp).Row
' 给S列批量设置公式
Range("S5:S" & lRow).Formula = "=IF(LEFT(B5,1)=""z"",""Q"",""A"")"

3. 严格匹配小写z的版本 #

如果你需要仅当第一个字符是小写z时才设为Q（大写Z不算），那得用Excel的EXACT函数做精确大小写匹配，代码如下：

Dim lRow As Long
lRow = Cells(Rows.Count, "B").End(xlUp).Row
Range("S5:S" & lRow).Formula = "=IF(EXACT(LEFT(B5,1),""z""),""Q"",""A"")"

EXACT函数会严格对比两个文本的大小写，完美满足你“小写字母z开头”的要求。

内容的提问来源于stack exchange，提问作者Tourless