从另一个范围名称设置范围

Question

我是excel VBA的新手。 我正在尝试在我的工作簿中创建一个函数，该函数将执行excel linet函数。 我有一个范围（pqr），其中第一列是Y变量，第二列是X变量。 我想在代码中将R1和R2分配为变量。 我试图从其他线程获取代码，但这是我编写的代码...

Function LinestTest(pqr As Range)
 Dim vCoeff As Variant
 Dim r1 As Range
 Dim r2 As Range
 Set r1 = Range(pqr).Offset(, 1)
 Set r2 = Range(pqr).Offset(, 0)
 vCoeff = WorksheetFunction.LinEst(r1, Application.Power(r2, Array(1, 2, 3)))
 LinestTest = vCoeff

如果我分别传递r1和r2，则代码有效。

Answer 1

由于pqr定义为Range ，因此您需要直接在其上应用Offset属性。

更换：

Set r1 = Range(pqr).Offset(, 1)
Set r2 = Range(pqr).Offset(, 0)

与：

Set r1 = pqr.Offset(, 1)
Set r2 = pqr.Offset(, 0)

BTW

Set r2 = pqr.Offset(, 0)等效于Set r2 = pqr

Answer 2

这个解决了..

    Function LinestTest(pqr As Range)
    Dim vCoeff As Variant
    Dim r1 As Range
    Dim r2 As Range
    'Set r1 = pqr.Offset(, 1)
    'Set r2 = pqr.Offset(, 2)
    Set r2 = pqr.Offset(0, 0).Resize(pqr.Rows.Count, pqr.Columns.Count - 1)
    Set r1 = pqr.Offset(0, 1).Resize(pqr.Rows.Count, pqr.Columns.Count - 1)

    vCoeff = WorksheetFunction.LinEst(r1, Application.Power(r2, Array(1, 2, 3)))
    LinestTest = vCoeff
End Function