Excel VBA自定义函数STax问题：无法设置Range元素值实现批量乘1.13

问题根源 #

Excel的自定义工作表函数（UDF）不允许直接修改单元格的值，这是Excel的安全与设计限制——UDF只能返回计算结果给调用它的单元格，无法主动修改其他单元格（包括传入的参数区域），所以你之前代码中给Range1(Index).Value赋值的操作会被直接忽略。

正确实现代码 #

要实现你需要的功能，应该通过返回数组的方式，让Excel自动将计算结果填充到对应区域：

Public Function STax(Range1 As Range) As Variant
    Dim resultArr() As Variant
    Dim i As Long, j As Long
    
    ' 将输入区域的值加载到数组，大幅提升计算效率
    resultArr = Range1.Value
    
    ' 遍历数组完成乘法计算
    For i = LBound(resultArr, 1) To UBound(resultArr, 1)
        For j = LBound(resultArr, 2) To UBound(resultArr, 2)
            ' 仅对数值类型进行计算，避免非数值单元格报错
            If IsNumeric(resultArr(i, j)) Then
                resultArr(i, j) = Round(resultArr(i, j) * 1.13, 2)
            End If
        Next j
    Next i
    
    ' 返回计算后的数组
    STax = resultArr
End Function

使用方法 #

• 新版Excel（365/2021+，支持动态数组）：直接在任意单元格输入=STax(A1:A15)，Excel会自动"溢出"计算结果到与输入区域大小匹配的单元格区域。
• 旧版Excel（无动态数组）：先选中与输入区域（比如A1:A15）大小完全相同的空白区域，输入=STax(A1:A15)，然后按下Ctrl+Shift+Enter以数组公式形式确认输入。

效果验证 #

使用你提供的测试数据，计算结果与预期完全一致：

补充说明 #

• 代码中加入了Round函数控制小数位数，与你的示例结果匹配；如果需要保留更多精度，可以去掉Round，直接写resultArr(i, j) = resultArr(i, j) * 1.13。
• 加入了IsNumeric判断，避免输入区域包含文本时函数报错。

内容的提问来源于stack exchange，提问作者Jose Francisco Duran