excel中 Dim C(13,39) As Long怎样用vba快速求出答案呀 谢谢

Posted 2023-02-25

求这个array里有多少个数

这个其实不必用代码解决，基本的方法是：大值减小值+1。出于空值、负值等情形考虑可以这样写（包含起始值[13]和结束值[39]）：

Function Cnum(ByVal startNum, ByVal endNum) As Long
    Numlen = startNum - endNum '起始值减去结束值
    If (Numlen = 0) Then
        Numlen = 0  '作为公式用的时候，如果单元格为空，0-0+1会变成1。虽然空值也应当被看作一个值，但习惯上可能更喜欢将其看作没有（0）。
    Else
        Numlen = Abs(Numlen) + 1 '取绝对值——个数不能为负值。
    End If
    Cnum = Numlen
End Function

不包含起始值[13]和结束值[39]的话，会难繁琐些，要先对起始值和结束值进行单独处理（正、负值的平移问题），再进行个数计算。

参考技术A 你自己再读一遍你的题目，我是没法理解你想问什么？
只是定义了一个数组，你要求什么答案？？
这么马虎能干啥？追问

求这个arrayC里面的有多少个数

不要那么凶嘛哥哥 发的比较急

追答

不就是14*40个元素吗？你是要求有值的个数？大于0的个数？弄个for循环跑一下不就知道了。

参考技术B 应该是 PlotBy:=xlColumns
Columns是一个一个对象集合，而xlColumns是一个LONG类型的常量 参考技术C (Ubound (C,1)-Lbound(C,1))*(Ubound (C,2)-Lbound(C,2))