Excel VBA宏需求：满足指定条件时在J列应用公式

我看你已经搭好循环的基本框架了，但卡在G列值乘32的步骤上，大概率是公式引用的写法或者循环细节没处理对。咱们一步步来修正：

先说说你可能踩的几个小坑： #

• 如果第一行是表头，For i = 1 To 10会把表头也纳入判断，这肯定不是你想要的
• 公式里直接写G和H是无效的，VBA里得明确指定对应行的单元格地址，比如G&i
• 字符串比较默认区分大小写，要是数据里出现"hits_us"或者"Harry"，你的判断条件会直接跳过

修正后的完整代码 #

Sub CalculateJColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表，这里用Sheets(1)，你也可以改成具体表名比如Sheets("数据报表")
    Set ws = Sheets(1)
    
    ' 动态获取C列最后一行有数据的行号，比固定循环到10行灵活多了
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 从第2行开始循环（假设第1行是表头），没有表头就改成i=1
    For i = 2 To lastRow
        ' 用UCase统一转成大写再比较，避免大小写不匹配的问题
        If UCase(ws.Range("C" & i).Value) = "HITS_US" And UCase(ws.Range("D" & i).Value) = "HARRY" Then
            ' 给J列对应单元格设置公式，注意要把行号i和列字母拼接起来
            ws.Range("J" & i).Formula = "=((G" & i & "*32)+(H" & i & "*28)+300)/60"
        End If
    Next i
End Sub

代码关键点解释： #

1. 动态获取最后一行：用lastRow代替固定的10行，不管数据新增多少行都能自动覆盖，不会漏处理也不会空跑
2. 大小写兼容：UCase()把单元格值转成大写后再对比，确保不管数据是"Hits_US"还是"hits_us"都能匹配成功
3. 正确的公式引用：公式里的G和H必须结合当前行号i，变成G&i和H&i，VBA才能精准定位到对应行的单元格
4. 工作表对象化：先把工作表赋值给ws变量，后续操作更清晰，也能避免切换工作表时出现错误

测试步骤： #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 右键你的工作簿 → 插入 → 模块，把上面的代码粘贴进去
3. 按F5运行宏，或者回到Excel里通过「开发工具」的宏按钮执行

这样就能完美实现你的需求：只有当C列是"Hits_US"且D列是"harry"时，J列对应单元格才会应用指定公式，其他已有值的单元格完全不会被修改。

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