Excel按A列分组判断H列是否有小于3的值 在Q列返回对应分组值

方案1：函数公式法（无需代码，适配多数日常场景） #

操作步骤：

• 定位到Q列首个数据行单元格（默认表头在第1行时，首个数据单元格为Q2）
• 输入对应公式后下拉填充整列即可
  • 支持MINIFS函数的Excel版本（2019及以后/365版本）使用公式：
    =IF(MINIFS(H:H,A:A,A2)<3,1,2)
  • 旧版本Excel（无MINIFS函数）使用兼容公式：
    =IF(SUMPRODUCT((A:A=A2)*(H:H<3))>0,1,2)

公式逻辑：自动匹配当前行A列所属分组的全部H列数据，只要组内存在任意H列值小于3.0，当前行Q列返回1；组内所有H列值均≥3.0时返回2，同组所有行返回值完全一致。

方案2：VBA宏法（适配十万行级以上大数据量，运行效率更高） #

操作步骤：

• 打开目标Excel文件，按Alt+F11唤起VBA编辑器
• 在左侧工程资源管理器中右键点击当前工作簿名称，依次选择「插入」-「模块」
• 在弹出的代码编辑区粘贴以下代码：

Sub FillGroupValueToQ()
    Dim lastRow As Long, i As Long
    Dim groupMap As Object
    Set groupMap = CreateObject("Scripting.Dictionary")
    
    ' 遍历全表标记每个分组的赋值结果
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        aVal = Cells(i, "A").Value
        If Not groupMap.Exists(aVal) Then
            groupMap(aVal) = 2 ' 无小于3的值时默认赋值2
        End If
        If Val(Cells(i, "H").Value) < 3 Then
            groupMap(aVal) = 1 ' 组内存在小于3的值时标记为1
        End If
    Next i
    
    ' 批量写入Q列
    For i = 2 To lastRow
        Cells(i, "Q").Value = groupMap(Cells(i, "A").Value)
    Next i
End Sub

• 按F5运行宏，等待执行完成后返回表格界面，Q列已按规则完成全部填充。

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