Excel开发报错：Range类型不存在Values成员，求性别单元格着色方案

这个问题的根源很明确：Excel的单个单元格对象（Cells返回的是单个Range实例）并没有Values属性，你需要用Value或者Value2来获取单元格的值。

错误原因拆解 #

Values是针对多单元格区域的属性，它会返回一个包含区域所有值的二维数组；而单个单元格应该用Value（返回单元格的显示值）或者Value2（返回单元格的原始值，比Value略高效）。你的代码里用了.Values，Excel自然会找不到这个成员，抛出异常。

修正后的代码 #

把所有的.Values替换成.Value就可以解决问题，这里给你调整后的完整示例：

For Each dr In dt.Rows
    rowIndex += 1
    ' 获取当前性别单元格的值，先存成变量更高效
    Dim genderValue As String
    genderValue = UCase(wSheet.Cells(rowIndex, mfIndex).Value)
    
    If genderValue = "MALE" Then
        wSheet.Range(range).Style = "Male"
    ElseIf genderValue = "FEMALE" Then
        wSheet.Range(range).Style = "Female"
    End If
Next dr

额外优化建议 #

• 我加了UCase()函数，这样不管单元格里是"male"、"Male"还是"MALE"都能匹配，避免大小写导致的判断失败；
• 把单元格值提前存到变量里，避免重复访问Excel对象模型，这是VBA优化的小技巧，能提升代码运行速度。

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