Excel条件赋值与VBA多列批量填充故障咨询

场景一：A列非空时为对应行B、C列赋值 #

这个需求的核心是遍历A列有效数据行，判断单元格是否非空，再给同行的B、C列赋值（你可以把示例里的占位值改成实际需要的内容）：

Sub FillBandCWhenANotEmpty()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 可替换为具体工作表，比如ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列最后一行有效数据，避免遍历大量空行提升效率
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Dim cel As Range
    For Each cel In ws.Range("A1:A" & lastRow)
        If cel.Value <> "" Then
            cel.Offset(0, 1).Value = "你的B列目标值" ' Offset(0,1)对应B列（A列向右偏移1列）
            cel.Offset(0, 2).Value = "你的C列目标值" ' Offset(0,2)对应C列（A列向右偏移2列）
        End If
    Next cel
End Sub

场景二：B列非空时批量填充K、P、Q列 #

看你提供的代码，问题主要有两个：一是**If语句缺少End If包裹代码块**，导致只有第一行赋值生效；二是列偏移量计算错误。修正后的代码如下：

Sub FillMultipleColumnsWhenBNotEmpty()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 可替换为具体工作表
    
    ' 获取B列最后一行有效数据，减少不必要的遍历
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    Dim cel As Range
    For Each cel In ws.Range("B18:B" & lastRow)
        If cel.Value <> "" Then
            cel.Offset(0, 9).Value = "Customer"  ' B列到K列：偏移9列（11-2=9）
            cel.Offset(0, 14).Value = "Allow"    ' B列到P列：偏移14列（16-2=14）
            cel.Offset(0, 15).Value = "Normal"   ' B列到Q列：偏移15列（17-2=15）
        End If ' 必须用End If包裹所有需要在判断后执行的语句
    Next cel
End Sub

问题说明： #

1. 你原来的If语句没有End If，VBA会默认只执行紧跟在Then后的第一行代码，后续注释的行根本不会进入判断逻辑；
2. 偏移量计算错误：Offset(0,5)是从B列向右偏移5列（对应G列），不是你需要的P列，得根据列的序号差计算正确偏移量。

另外，用lastRow获取实际数据行的方式，比固定写死90000行更高效，也不会处理无意义的空行。

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