VBA:汇总每行最右边的单元格?

时间:2019-01-17 18:05:37

标签: excel vba

我有一个与下面类似的数据集。

我只想对最右边一栏中的数据求平均。

我的范围从C4开始,行或列的结尾均未设置。

**1** 
1 **2** 
1 2 **3** 
1 **2**
**1**

我将以下内容放在一起,它对单个固定列做了我需要做的事情,但我不知道如何扩展它以始终使用最右边列中的值。

Dim Sum, Count As Integer

       Count = 0
       Sum = 0

    Application.ScreenUpdating = False

       Range("C4").Select
       Do While ActiveCell.Value <> ""

           Sum = Sum + ActiveCell.Value
           Count = Count + 1
           ActiveCell.Offset(1, 0).Activate

       Loop

       Range("O1").Value = Sum / Count

谢谢。

1 个答案:

答案 0 :(得分:2)

这将循环行。

MATCH将返回最后一列的列号,其中包含一个数字。

然后我们获得该列中该行的编号并将其添加到数组中。

然后在循环之后,我们对数组求平均值。

validateInput(text, fieldname) {
    let stateObject = {
        text: text,
        valid: text.length !== 0
    }

    this.setState({ [fieldname]: stateObject }, () => {
        this.checkValidation();
    });
}