多工作表指定列0转NO、大于0转YES的VBA宏开发需求

直接上代码，解决你的两个核心问题：精准排除MAP列、正确将大于0的值转为YES：

Sub UpdateInventoryStatus()
    Dim ws As Worksheet
    Dim headerRow As Integer
    Dim lastCol As Integer
    Dim lastRow As Integer
    Dim col As Integer
    Dim dataArr As Variant
    Dim i As Integer
    
    ' 表头所在行，根据你的实际表格调整（默认第1行）
    headerRow = 1
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        With ws
            ' 获取表头行最后一列、数据区域最后一行
            lastCol = .Cells(headerRow, .Columns.Count).End(xlToLeft).Column
            lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
            
            ' 逐列判断是否为目标列
            For col = 1 To lastCol
                ' 筛选条件：表头是日期格式 + 列标题不是MAP（忽略大小写）
                If IsDate(.Cells(headerRow, col).Value) And UCase(.Cells(headerRow, col).Value) <> "MAP" Then
                    ' 把整列数据加载到数组，提升处理速度（大数据量必备）
                    dataArr = .Range(.Cells(headerRow + 1, col), .Cells(lastRow, col)).Value
                    
                    ' 遍历数组处理每个值
                    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
                        ' 只处理数字类型的单元格，避免文本/空值报错
                        If IsNumeric(dataArr(i, 1)) Then
                            Select Case dataArr(i, 1)
                                Case 0: dataArr(i, 1) = "NO"
                                Case Is > 0: dataArr(i, 1) = "YES"
                                ' 若有小于0的情况，可在这里添加处理逻辑（比如留空）
                            End Select
                        End If
                    Next i
                    
                    ' 把处理好的数组写回工作表
                    .Range(.Cells(headerRow + 1, col), .Cells(lastRow, col)).Value = dataArr
                End If
            Next col
        End With
    Next ws
    
    MsgBox "库存状态更新完成！", vbInformation
End Sub

核心解决逻辑说明 #

• 精准排除MAP列：通过UCase(.Cells(headerRow, col).Value) <> "MAP"确保MAP列无论大小写都不会被处理，同时结合IsDate只筛选表头为日期的列，从根源避免误改
• 正确实现数值替换：放弃Replace方法（它仅支持精确匹配或通配符，不支持数值范围判断），改用数组遍历+条件判断，直接对数值进行逻辑判断，完美实现0→NO、>0→YES的需求
• 高效处理大数据：将整列数据加载到数组后再循环，比逐个单元格操作快几十倍，适合多工作表、大数据量的场景
• 容错性强：添加IsNumeric判断，只处理数字类型的单元格，避免空值、文本内容导致的运行错误

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