Excel vba -计算具有动态列数的数据平均值

Dim ws As Worksheet
Dim dataRange As Range
Dim lastColumn As Long

Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的工作表名
lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
Set dataRange = ws.Range("A1:" & Split(Cells(, lastColumn).Address, "$")(1) & "100") ' 替换为你的数据范围，此处假设数据行数不超过100

Dim row As Range
Dim averageValue As Double

For Each row In dataRange.Rows
    averageValue = Application.WorksheetFunction.Average(row)
    ' 在这里执行你的操作，例如将平均值写入另一个单元格
Next row