计算单元格中活动单元上方最多两列的值（不包括标题）

Question

我正在尝试计算一列中所有具有高于活动单元格值的单元格，不包括标题和活动单元格正上方的单元格。

例如，如果我有一列

1个
5
4
不适用
4
当前单元格

我希望当前单元格等于2。（计算5和4，不是N / AN / A，不是当前单元格上方的单元格，也不是第一个单元格。）

列中的单元格数量将有所不同。

我想要连续260列。

Answer 1

尝试这个：

Sub counter()

Dim col As Integer
Dim lastrow As Integer
Dim cellcount As Integer

With ActiveCell
    col = .Column
    lastrow = .Row - 2
End With

cellcount = 0
For Each cell In ActiveSheet.Range(Cells(2, col), Cells(lastrow, col))

    If IsError(cell) Then GoTo skipcell

    If cell.Value > 0 And IsNumeric(cell) Then cellcount = cellcount + 1

skipcell:

Next cell

ActiveCell = cellcount

End Sub

它获取活动单元并找到选定的列，并在活动单元上方找到两个单元。

然后，它会在每次发现大于“ 0”的值时循环添加到计数器的范围

如OP所要求，在检查中添加的注释中确保单元格中的日期为数字，并且单元格中没有错误（＃N / A）值

还要求它跨越同一行中的260列。 为此，使用了for循环：

Sub counter()

Dim firstCol as Integer
dim lastCol as Integer

firstCol = 1 'You can change this value depending on your first column
             ' for example you might use ActiveCell.Column

lastCol = firstCol + 260

Dim col As Integer

Dim lastrow As Integer
lastRow = 6  ' Make this the actual last row of the data to include

Dim cellcount As Integer

for col = firstCol to lastCol

    cellcount = 0
    For Each cell In ActiveSheet.Range(Cells(2, col), Cells(lastrow, col))

        If IsError(cell) Then GoTo skipcell

        If cell.Value > 0 And IsNumeric(cell) Then cellcount = cellcount + 1

    skipcell:

    Next cell

    ActiveSheet.Cells(lastRow + 2, col) = cellcount

Next col

End Sub

Answer 2

为什么这必须是VBA代码？

使用单元格公式非常简单：

=COUNTIF(A1:A5,"<>0")-2

这将对给定范围（ A1:A5 ）中不等于零的所有像元进行计数。 因为您知道要删除标题行和上方的一行，所以从答案中减去2。 当然，这与

=COUNTIF(A2:A4,"<>0")

如果要在VBA中使用此功能，请查看WorksheetFunction ：

Dim myCount As Integer
myCount = WorksheetFunction.COUNTIF(ActiveSheet.Range("A2:A4"),"<>0")

然后将myCount插入工作表

ActiveSheet.Range("A6").value = myCount