VBA-如何使用LinEst函数并在可变长度的列中返回值

Question

我正在尝试使用LinEst函数从一系列数据行中获取值，并将其输入到某些标题下的新工作表中。我只想对特定数量的行执行此操作（最多将行号定义为“ c”。我的VBA技能非常基础。

Sub Button7_Click()

Sheets.Add.Name = "Down Sweep Power Law"

 Dim xrng As Range, yrng As Range
    Dim i As Long
    Dim Rng As Range
    Dim l As Long
    Dim k As Long
    Dim i2 As Long
    Dim c As Long
    Dim j As Long
    Dim drop As Range
    Dim drop2 As Range
    Dim DownSweep As Chart, UpSweep As Chart, cht As Chart
    Dim ws As Worksheet, smallest
    Dim dsws As Worksheet

    Set ws = Worksheets("Template") '<< use variables for worksheets!

    Set dsws = Worksheets("Down Sweep Power Law")

    Set Rng = ws.Range(ws.Range("B11"), ws.Range("B11").End(xlDown))

    smallest = WorksheetFunction.Small(Rng, 1)
    l = Rng.Find(what:=smallest, LookIn:=xlValues, lookat:=xlWhole).Row
    k = Rng.Rows.Count

    c = l - 10

    Set xrng = ws.Range("C11:CP11")
    Set yrng = ws.Range("C201:CP201")
    Set drop = dsws.Range("A2")
    Set x2rng = xrng.Offset(1, 0)
    Set y2rng = yrng.Offset(1, 0)
    Set drop2 = drop.Offset(1, 0)

dsws.Range("A1").Value = "(n-1) Value"
dsws.Range("B1").Value = "log(k) Value"
dsws.Range("C1").Value = "(n-1) Value"
dsws.Range("D1").Value = "n Value"
dsws.Range("E1").Value = "R Value"

If i < c Then

Set drop = Application.LinEst(Log10(yrng), Log10(xrng), True, False)

i = i + 1

End If

ITERATE:

If i < c Then

Set drop2 = Application.LinEst(Log10(y2rng), Log10(x2rng), True, False)

x2rng = x2rng.Offset(1, 0)
y2rng = y2rng.Offset(1, 0)
drop2 = drop2.Offset(1, 0)
i = i + 1
GoTo ITERATE

End If


End Sub

代码运行，但是当我进入创建的工作表时，出现#NAME错误（2029），并且没有值。

是否有解决此问题的方法？

任何帮助将不胜感激。

谢谢，

柔道

Answer 1

我认为您已经从计划中省略了一步。 LinEst返回一个数组，您想将该数组中的值分配给Drop范围。您不能将数组直接分配给范围。请尝试此代码。

Option Explicit

Sub Button7_Click()

    Dim xrng As Range, yrng As Range
    Dim Drop As Range
    Dim Arr As Variant                          ' LinEst result array
    Dim Rng As Range
    Dim R As Long
    Dim l As Long
    Dim k As Long
    Dim i2 As Long
    Dim c As Long
    Dim j As Long
    Dim DownSweep As Chart, UpSweep As Chart, cht As Chart
    Dim ws As Worksheet, Smallest As Variant
    Dim dsws As Worksheet

    Set ws = Worksheets("Template") '<< use variables for worksheets!
    Sheets.Add.Name = "Down Sweep Power Law"
    Set dsws = Worksheets("Down Sweep Power Law")
    Set Rng = ws.Range(ws.Range("B11"), ws.Range("B11").End(xlDown))

    Smallest = WorksheetFunction.Small(Rng, 1)
    l = Rng.Find(what:=Smallest, LookIn:=xlValues, LookAt:=xlWhole).Row
    k = Rng.Rows.Count
    c = l - 10

    Set xrng = ws.Range("C11:CP11")
    Set yrng = ws.Range("C201:CP201")
    Set Drop = dsws.Range("C2:CP2").Offset(0, -2)

    dsws.Range("A1").Value = "(n-1) Value"
    dsws.Range("B1").Value = "log(k) Value"
    dsws.Range("C1").Value = "(n-1) Value"
    dsws.Range("D1").Value = "n Value"
    dsws.Range("E1").Value = "R Value"

    Do While R < c
        Arr = Application.LinEst(Log10(yrng), Log10(xrng), True, False)
        Drop.Value = Arr    ' or perhaps: = Application.Transpose(Arr)
        Set xrng = xrng.Offset(1, 0)
        Set yrng = yrng.Offset(1, 0)
        Set Drop = Drop.Offset(1, 0)
        R = R + 1
    Loop
End Sub

我不知道LinEst将返回哪种数组。您可能需要转置结果。

我还试图改善您对范围的管理。但是，由于缺少数据，该代码是完全未尝试的。我的代码和错别字都可能存在逻辑错误，但语法应该合理。它可能不会让您一路走到终点，但我希望它能帮助您完成任务。