有人能帮助我。我想要统计有多少个数大于45,并将结果放在最后一个数据单元下面的3行。让我们给它一个名字 - 称它为结果。然后结果左侧我想放话号码> 45.数据行的数量会发生变化,所以当我运行列d宏会找到它的最后一个数据点和做计算。一些行将是空的。感谢您的帮助宏来算,给结果
它想,这
50
20
100
120
45
30
30
返回> 45 = 4
Sub enter()
Dim result As Integer
Dim firstrow As Integer
Dim lastwow As Integer
Firstrow = d2
Result = ‘ Value of count
Worksheets("sheet1").Range("c?").Value = "Total>45"
Range("d100000").End(xlUp).Select
End Sub
> 45应该在你的情况下,3和4不是:) –
是否有任何的答案回答你的问题?如果是这样,请通过将其标记为答案来帮助其他用户,请参阅[关于]。 – glh