各位大佬，我想在excel呈现每组3个数字，总共14组。每组挑选出一个相乘的所有结果，就有3的14比方个，请问我的vba代码一直显示range作用于对象错误，应该怎么调整？谢谢各位大佬 ' 将结果写入新的工作表 Set ws = ThisWorkbo

2023-05-03 17:46:33 227 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Excel立方根计算的三种方法：从公式到VBA实战立方根是科学计算与工程建模中的基础数学运算，本质为x^(1/3)形式的幂运算。其原理基于实数域内奇次方根的唯一性与符号保持性，技术价值在于实现体积反推、归一化处理、三维尺度转换等关键数据变换。在Excel中虽无原生CUBEROOT函数，但可通过^运算符、POWER函数及VBA自定义函数三种路径精准实现，分别适配快速验证、审计级报表与含负数的科研场景。本文聚焦cube root与Excel公式两大核心热词，系统解析各方法的精度特性、错误处理机制与工程适用边界。阅读详情

各位大佬，我想在excel呈现每组3个数字，总共14组。每组挑选出一个相乘的所有结果，就有3的14比方个，请问我的vba代码一直显示range作用于对象错误，应该怎么调整？谢谢各位大佬 ' 将结果写入新的工作表 Set ws = ThisWorkbook.Worksheets.Add ws.Range("A1:N" & UBound(arrResults)).Value = arrResults End Sub Sub CalculateAllProducts(arrData() As Double, arrResults() As Double, ByVal level As Integer, ByVal resultIndex As Long) Dim i As Integer If level <= 14 Then For i = 1 To 3 arrResults(resultIndex, level) = arrData(level, i) CalculateAllProducts arrData, arrResults, level + 1, resultIndex + (i - 1) * (3 ^ (14 - level)) Next i End If End Sub

...全文