Excel VBA 从 ASCII 文件导入数据并绘制平均值

Question

我正在从一个巨大的 ASCII 文件中的一些传感器获取数据，我想将其导入到 excel 中以进行平均和绘图，我正在成功导入，但我不知道如何计算列的平均值自动

    Sub Import()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Dim NameOfWorkbook As String
Dim arr As Variant
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add(After:=ActiveSheet).Name = "Data1"
NameOfWorkbook = ActiveSheet.Name

'Step 1 Import the data

FileToOpen = Application.GetOpenFilename(Title:="Import sensor report in ASCII format")
    If FileToOpen <> False Then
    Set OpenBook = Application.Workbooks.Open(FileToOpen)
    arr = OpenBook.Sheets(1).Range("A1").CurrentRegion
    RowCount = UBound(arr, 1)
    ColumnCount = UBound(arr, 2)
    ThisWorkbook.Sheets("Data1").Range("A1").Resize(RowCount, ColumnCount).Value = arr
    arr = OpenBook.Sheets(1).Range("A3").CurrentRegion
    RowCount = UBound(arr, 1)
    ColumnCount = UBound(arr, 2)
    ThisWorkbook.Sheets("Data1").Range("A3").Resize(RowCount, ColumnCount).Value = arr
    OpenBook.Close False
    End If

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayStatusBar = True
Application.EnableEvents = True
End Sub

这将导入第 1 行中的传感器编号和第 3 行及以下的数据 我想将第 2 行的平均值自动填充到第 3 行及以下的最后一个数字，这可能会有所不同，请在下面找到图片

那么，谁能帮我用“=Average(D3:D last item)”为 D2 到 AJ2 自动填充单元格 D2？使用与导入代码相同的执行方式？

谢谢！

Answer 1

请试试这个功能。

Private Function RangeAverage(ByVal Rs As Long) As Double
    ' Rs is the row number to take the average from
    
    Dim Rng     As Range            ' working range
    
    With ThisWorkbook.Sheets("Data1")
        Set Rng = .Range(.Cells(Rs, "D"), .Cells(Rs, .Columns.Count).End(xlToLeft))
    End With
    RangeAverage = Application.WorksheetFunction.Average(Rng)
End Function

您可以使用如下代码将其集成到您的项目中：-

Dim R As Long

For R = 3 To LastRow
     MyCell.Value = RangeAverage(R)
Next R

其中Mycell 是任何工作表中随R 更改的单元格。

Answer 2

非常感谢您的帮助，这使我能够找到下面的解决方案，我相信周围的专家可以以更有效的方式做到这一点，我愿意接受建议：

Dim R As Long
Dim Rng As Range
Dim lRow As Long
For R = 4 To 36
    lRow = Cells(Rows.Count, R).End(xlDown).Row
    With ThisWorkbook.Sheets("Data1")
        Set Rng = .Range(.Cells(3, R), .Cells(lRow, R))
    End With
    ThisWorkbook.Sheets("Data1").Cells(2, R).Value = Application.WorksheetFunction.Average(Rng)
Next R