如何将含多条件AND/OR的Excel IF公式转换为VBA代码并批量执行？

我来帮你把这个Excel公式转换成实用的VBA代码，完美匹配你需要的逻辑，还能高效处理所有C列非空的行～

先明确需求逻辑 #

你的公式对应的判断规则可以拆解为：

• 当C列单元格为"tgk"且M列是"Éves kártyadíj"，或者C列是"tgk"且M列是"EMATRICA D2 HETI"，或者**C列是"szgk"**时，对应AA列设为0
• 其他情况（且C列非空），AA列设为"27B"
• 只处理C列非空的行

基础循环版VBA代码 #

这个版本逻辑清晰，适合数据量不大的场景：

Sub SetAAValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你实际要操作的工作表名称，比如"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 找到C列最后一个非空行，避免循环多余的空白行
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 从第2行开始循环（对应原公式的C2起始行）
    For i = 2 To lastRow
        ' 只处理C列非空的单元格
        If ws.Cells(i, "C").Value <> "" Then
            ' 匹配你的条件逻辑
            If (ws.Cells(i, "C").Value = "tgk" And _
                (ws.Cells(i, "M").Value = "Éves kártyadíj" Or ws.Cells(i, "M").Value = "EMATRICA D2 HETI")) Or _
               ws.Cells(i, "C").Value = "szgk" Then
                ws.Cells(i, "AA").Value = 0
            Else
                ws.Cells(i, "AA").Value = "27B"
            End If
        End If
    Next i
End Sub

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧项目窗口中，右键点击你的工作簿 → 插入 → 模块
3. 将上面的代码粘贴到模块窗口中
4. 修改代码里的工作表名称（比如把"Sheet1"改成你实际的表名）
5. 按下F5运行代码，或者回到Excel界面，通过开发工具→宏→选择SetAAValues执行

高效数组版VBA代码 #

如果你的数据量很大（比如几千上万行），推荐用数组操作，速度会快很多（减少VBA和Excel界面的交互次数）：

Sub SetAAValuesWithArray()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Variant
    Dim resultArr() As Variant
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 一次性读取C到AA列的数据到数组
    dataRange = ws.Range("C2:AA" & lastRow).Value
    ' 初始化结果数组，对应AA列的位置
    ReDim resultArr(1 To UBound(dataRange, 1), 1 To 1)
    
    For i = 1 To UBound(dataRange, 1)
        ' 数组中第1列对应原C列，第11列对应原M列（C到M间隔10列）
        If dataRange(i, 1) <> "" Then
            If (dataRange(i, 1) = "tgk" And _
                (dataRange(i, 11) = "Éves kártyadíj" Or dataRange(i, 11) = "EMATRICA D2 HETI")) Or _
               dataRange(i, 1) = "szgk" Then
                resultArr(i, 1) = 0
            Else
                resultArr(i, 1) = "27B"
            End If
        Else
            resultArr(i, 1) = "" ' C列为空时AA列保持空白
        End If
    Next i
    
    ' 一次性把结果写回AA列
    ws.Range("AA2:AA" & lastRow).Value = resultArr
End Sub

代码说明 #

• 数组版本先把需要的所有数据读到内存里，循环判断后再一次性写回，比逐个单元格读写效率高很多
• 数组中的列索引对应：原C列是数组第1列，原M列是数组第11列（因为C到M是C,D,E,F,G,H,I,J,K,L,M，共11列）

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