VBA中使用Select Case处理单元格范围报错及范围定义问题

问题1：运行时错误13（类型不匹配）原因及修复 #

• 错误根源：你定义的dataRange是包含A、D、F整列的多区域范围，dataRange.Value返回的是二维数组，但Select Case需要单个值进行判断，直接使用会触发类型不匹配。另外代码里多余的Next没有对应的循环语句，属于语法错误。
• 修复逻辑：必须逐行遍历数据，先提取当前行A、D、F列中的非空值（符合你补充的每行仅一个非空的规则），再用Select Case对单个值进行判断。

问题2：设置数据区域最后一行，避免整列赋值 #

• 解决方法：先获取A、D、F列中数据的最大行号，以此作为处理终点，而非直接操作整列。可以用Application.Max来取三列最后行的最大值，确保覆盖所有有数据的行。

修正后的完整代码 #

Sub setStatus()
    Dim LastRow As Long
    Dim i As Long
    Dim cellValue As String
    
    ' 获取A、D、F列中数据的最大行号，确保覆盖所有有数据的行
    LastRow = Application.Max(Cells(Rows.Count, "A").End(xlUp).Row, _
                              Cells(Rows.Count, "D").End(xlUp).Row, _
                              Cells(Rows.Count, "F").End(xlUp).Row)
    
    ' 逐行遍历处理
    For i = 1 To LastRow
        ' 提取当前行A、D、F列的非空值
        If Cells(i, "A").Value <> "" Then
            cellValue = Cells(i, "A").Value
        ElseIf Cells(i, "D").Value <> "" Then
            cellValue = Cells(i, "D").Value
        ElseIf Cells(i, "F").Value <> "" Then
            cellValue = Cells(i, "F").Value
        Else
            cellValue = "" ' 处理空行情况，可按需修改
        End If
        
        ' 用Select Case判断并给H列对应行赋值
        Select Case cellValue
            Case "Done"
                Cells(i, "H").Value = "Completed"
            Case "WIP"
                Cells(i, "H").Value = "In Progress"
            ' 可在此处继续添加更多Case分支
            Case Else
                Cells(i, "H").Value = "" ' 未匹配的情况赋值为空，可按需调整
        End Select
    Next i
End Sub

代码关键点说明 #

• 仅处理到有数据的最后一行，不会对整列无效区域赋值
• 严格按照每行仅一个非空值的规则提取判断值
• 补充了完整的循环结构，解决原代码语法错误

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