VBA循环问题：如何仅在第23列标x的前20行执行代码

你的代码问题出在For循环的语法错误：VBA的For循环不支持在To后面直接附加判断条件，必须把行的判断逻辑放到循环内部。

以下是符合需求的正确写法：

Dim i As Long
Dim j As Long
Dim Seat As String

' 遍历第2行到第20行
For i = 2 To 20
    ' 判断当前行第23列（W列）的值是否为"x"（兼容大小写）
    If UCase(Cells(i, 23).Value) = "X" Then
        j = i
        Seat = Cells(j, 5).Value ' 建议加上.Value明确获取单元格值
        
        ' ... 你的业务代码放在这里
        
    End If
Next i
End Sub

关键说明： #

• 先通过For i = 2 To 20遍历目标行范围
• 循环内部用If语句判断当前行第23列是否为"x"，满足条件才执行后续代码
• 用UCase()转换为大写判断，避免大小写不一致导致的漏判（如果不需要兼容可以直接写Cells(i,23).Value = "x"）
• 建议加上.Value明确获取单元格的值，避免潜在的对象引用问题

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