如何在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. 如果用户按下“ 取消”按钮，则捕获该错误。
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