在VBA中怎么写这个函数

15199856373

=SUMPRODUCT((花名册!$H$7:$H$65536>6)*(花名册!$H$7:$H$65536<13)

lsc900707

结合附件说明问题。

hopeson2010

1. Sub ek_sky()
   
2.   Dim arr As Variant
   
3.   Dim i As Long, j As Long, k As Long
   
4.      With Sheets("花名册")
   
5.           i = .Cells(.Rows.Count, "H").End(xlUp).Row
   
6.              If i < 6 Then Exit Sub
   
7.              arr = Range("H7:H" & i).Value
   
8.               For j = 1 To UBound(arr)
   
9.                   If arr(j, 1) > 6 And arr(j, 1) < 13 Then
   
10.                       k = k + 1
    
11.                  End If
    
12.               Next j
    
13.      End With
    
14. MsgBox "查询的个数为:" & k & "个"
    
15. End Sub

复制代码

不知道为什么

hopeson2010 发表于 2018-9-26 21:50

呵呵，您这是把函数用vba表述了。我猜楼主的想法是 如何把 函数 写入到单元格。

hopeson2010

不知道为什么 发表于 2018-9-26 21:51
呵呵，您这是把函数用vba表述了。我猜楼主的想法是 如何把 函数 写入到单元格。

谢谢大师提醒!

不知道为什么

hopeson2010 发表于 2018-9-26 21:56
谢谢大师提醒!

老铁您太客气，楼主的心思一向很难猜的。或许您是正确的