VBA函数中获取单元格区域值的问题求助

原代码直接使用myRange(3).Value无法正常运行的核心问题：VBA中Range对象的单个数字索引是按整个工作表从上到下、从左到右的全局单元格顺序来定位的，并非针对传入区域本身的相对位置；此外如果传入的区域行数不足3行，会直接触发运行时错误。

解决方案1：用Cells属性明确指定相对位置 #

通过Cells(行号, 列号)直接引用区域内的相对单元格（单列区域列号固定为1），同时添加行数校验避免报错：

Function myFunction(myRange As Range)
    ' 校验区域行数是否满足要求
    If myRange.Rows.Count >= 3 Then
        myFunction = myRange.Cells(3, 1).Value
    Else
        ' 行数不足时返回自定义提示或空值
        myFunction = "区域行数不足3行"
    End If
End Function

解决方案2：用Rows属性直接定位目标行 #

对于单列区域，直接通过Rows(行号)获取区域内的指定行，再取值：

Function myFunction(myRange As Range)
    If myRange.Rows.Count >= 3 Then
        myFunction = myRange.Rows(3).Value
    Else
        myFunction = vbNullString ' 返回空值
    End If
End Function

扩展：支持动态指定目标行 #

如果需要灵活获取任意位置的值，可以把目标行号作为参数传入：

Function myFunction(myRange As Range, targetRow As Integer)
    ' 校验行号是否在有效范围内
    If targetRow > 0 And targetRow <= myRange.Rows.Count Then
        myFunction = myRange.Cells(targetRow, 1).Value
    Else
        myFunction = "无效的行索引"
    End If
End Function

内容的提问来源于stack exchange，提问作者Patrick R. McMullen