Excel VBA：按A列非空范围填充B列，循环写法求助

原代码的问题 #

• 循环结构完全错误：Next和Loop的位置颠倒，且Do While没有终止条件，会导致无限循环卡死Excel
• 遍历范围不合理：直接遍历整列（Columns(1)）会处理数十万空单元格，效率极低还易崩溃
• 变量大小写不一致：cell和Cell混用，虽VBA不严格，但易引发潜在问题

正确实现方式 #

方法1：高效循环（仅处理A列有数据的行）

先定位A列最后一个非空单元格，只遍历有效数据区域，避免无效计算：

Sub fillColumn()
    Dim lastRow As Long
    Dim cell As Range
    
    ' 获取A列最后一个非空行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历A列第1行到最后一行的单元格
    For Each cell In Range("A1:A" & lastRow)
        ' 若A列单元格非空，给对应B列单元格赋值"Yes"
        If cell.Value <> vbNullString Then
            cell.Offset(0, 1).Value = "Yes"
        End If
    Next cell
End Sub

方法2：公式批量填充（大数据量更高效）

数据量较大时，用公式批量填充再转静态值，速度远快于循环：

Sub fillColumnWithFormula()
    Dim lastRow As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 给B列批量设置公式：A列非空则显示"Yes"，否则为空
    Range("B1:B" & lastRow).Formula = "=IF(A1<>"""",""Yes"","""")"
    
    ' 可选：将公式转换为静态值，避免后续公式变动影响结果
    Range("B1:B" & lastRow).Value = Range("B1:B" & lastRow).Value
End Sub

关键提示 #

• 绝对不要直接遍历整列，必须用Cells(Rows.Count, 1).End(xlUp).Row定位实际有数据的最后一行，这也是你之前用xlDown崩溃的原因——xlDown会跳到列底，处理几十万行数据导致Excel过载
• 若A列存在中间空行，两种方法都能精准跳过空单元格，只给对应非空的A列行填充B列值

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