如何调整VBA代码：拼接A2:A200区域遇空白单元格即停止

直接给你调整后的代码，完美实现需求：

Sub vba_concatenate()
    Dim Rng As Range
    Dim resultStr As String
    Dim SourceRange As Range

    Set SourceRange = Range("A2:A200")

    For Each Rng In SourceRange
        ' 遇到空白单元格立即终止循环（Trim排除仅含空格的单元格）
        If Trim(Rng.Value) = "" Then
            Exit For
        End If
        
        ' 拼接时避免最后多出无用的" OR "
        If resultStr = "" Then
            resultStr = Rng.Value
        Else
            resultStr = resultStr & " OR " & Rng.Value
        End If
    Next Rng
    
    Range("C1").Value = resultStr
End Sub

关键调整说明： #

• 终止循环逻辑：遍历每个单元格时先判断是否为空，一旦碰到空白就用Exit For跳出循环，不会再继续遍历后续单元格，彻底避免空单元格带来的无效拼接
• 优化拼接格式：原代码不管拼接字符串是否为空都直接加" OR "，会导致最后多出一个无用分隔符。调整后先判断拼接字符串状态，为空时直接赋值单元格内容，不为空时再加" OR "和新内容，保证最终结果格式严谨
• 变量命名优化：把原变量i改成resultStr，更直观易懂，便于后续维护

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