gpt4 book ai didi

vba - 使 "Countif"工作表函数变量

转载 作者:行者123 更新时间:2023-12-03 03:24:38 24 4
gpt4 key购买 nike

我有一个代码,可以计算范围内的单元格(如果有数字)。然后,计数的细胞总数将显示在第 3 行中。我现在的问题是公式不是可变的,我也不知道如何制作它。如果我输入此代码,第 3 行将报告所有相同的结果(来自数据的第一列)。希望有人可以帮助我!

Sub Six_Continue()

Dim Rng As Range
Dim LastClm As Long


With ActiveSheet
LastClm = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set Rng = Range(.Cells(3, 3), .Cells(3, LastClm))
Rng.Value = Application.WorksheetFunction.CountIf(Range("C5", "C" & Cells(Rows.Count, 5).End(xlUp).Row), "<>?")
End With

End Sub

最佳答案

即使单元格不包含数字,CountIf 也会对单元格进行计数。使用 Count 可确保仅考虑包含数字的单元格。

Sub Six_Continue()

Dim Rng As Range
Dim LastClm As Long
Dim myClm As Long


With ActiveSheet
LastClm = .Cells(1, .Columns.Count).End(xlToLeft).Column
For myClm = 1 To LastClm
Set Rng = .Cells(3, myClm)
Rng.Value = Application.WorksheetFunction.Count(Range(.Cells(5, myClm), .Cells(.Cells(Rows.Count, myClm).End(xlUp).Row, myClm)))
Next myClm
End With

End Sub

关于vba - 使 "Countif"工作表函数变量,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48538040/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com