如何在 excel vba 中为用户定义的范围执行操作？

Question

我有一系列带有值的单元格，即

我想要一个 for 循环，对 A 列 (1) 中的第一个值、B 列 (3) 中的相邻值和 C 列 (74) 中的相邻值进行平均。我需要用户使用 msgbox 选择这个范围。

到目前为止，我可以在宏记录的帮助下编写此代码：

Sub averager()
    Dim ran As Range, average As Variant, cell1 As Variant, cell2 As Variant
    Dim i As Variant

    Set ran = Application.InputBox(Prompt:="Enter range values: ", Type:=8)

    For i = 0 To i = 8
        ran.Offset(0, 13).Select
        ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-13]:RC[-11])"
        average = WorksheetFunction.average(ran.Text)
    Next i
End Sub

但是，此代码不执行循环，它只返回我选择的偏移位置的第一个三次的平均值。

循环如何对所有值执行操作？

Answer 1

1. 在用户按下 Cancel 按钮时捕获错误。
2. 您不需要循环，可以一次将公式写入多个单元格。

---

Option Explicit

Public Sub Averager()        
    Dim ValueRange As Range
    On Error Resume Next 'if user presses cancel this throws an error
    Set ValueRange = Application.InputBox(Prompt:="Select range values: ", Type:=8)
    On Error GoTo 0

    If Not ValueRange Is Nothing Then
        ValueRange.Offset(ColumnOffset:=6).Resize(ColumnSize:=1).FormulaR1C1 = "=AVERAGE(RC[-6]:RC[-4])"
    End If
End Sub