求助：编写VBA代码按条件批量填充新列数据（含代码问题）

你说得太对了！AutoFill确实没办法复制这种带分支判断的逻辑——它只能复制单元格的公式、格式或者简单序列，没法把单个单元格里的If-Else逻辑批量应用到整列。下面给你几个实用的优化方案，按需选择：

方案1：VBA循环遍历（直观易读，适合小数据集） #

这是最容易理解的方式，逐个检查AB列单元格，根据内容给AD列赋值。记得加上屏幕更新关闭的代码，避免操作卡顿：

Sub FillProductType()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cellText As String
    
    ' 设置要操作的工作表，替换成你的实际表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "AB").End(xlUp).Row
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    For i = 2 To lastRow
        cellText = ws.Cells(i, "AB").Text
        ' vbTextCompare参数实现忽略大小写匹配，可根据需求移除
        If InStr(1, cellText, "iMac", vbTextCompare) > 0 Then
            ws.Cells(i, "AD").Value = "iMac"
        ElseIf InStr(1, cellText, "MacBook", vbTextCompare) > 0 Then
            ws.Cells(i, "AD").Value = "MacBook"
        End If
        ' 若需处理两类产品之外的情况，可添加Else分支赋值为"其他产品"或空值
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

方案2：数组批量处理（效率拉满，适合大数据集） #

如果你的数据集行数很多（比如几万行），单个单元格循环会很慢。把整列数据读到内存数组里处理，再一次性写回工作表，速度会提升数倍：

Sub FillProductTypeWithArray()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim abData As Variant
    Dim adData As Variant
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "AB").End(xlUp).Row
    
    ' 把AB列目标数据读到内存数组
    abData = ws.Range("AB2:AB" & lastRow).Value
    ' 初始化结果数组，和AB列数据行数一致
    ReDim adData(1 To UBound(abData), 1 To 1)
    
    For i = 1 To UBound(abData)
        If InStr(1, abData(i, 1), "iMac", vbTextCompare) > 0 Then
            adData(i, 1) = "iMac"
        ElseIf InStr(1, abData(i, 1), "MacBook", vbTextCompare) > 0 Then
            adData(i, 1) = "MacBook"
        End If
    Next i
    
    ' 把结果数组一次性写入AD列
    ws.Range("AD2:AD" & lastRow).Value = adData
End Sub

方案3：工作表公式（无需VBA，快速实现） #

如果不想写代码，直接用工作表公式也能搞定。在AD2单元格输入以下公式，然后下拉填充到整列即可：

=IF(ISNUMBER(SEARCH("iMac",AB2)),"iMac",IF(ISNUMBER(SEARCH("MacBook",AB2)),"MacBook",""))

• SEARCH函数默认忽略大小写，若需要严格区分大小写，替换成FIND函数即可。
• 公式末尾的空字符串可以换成你需要的默认值（比如"其他产品"）。

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