vba怎么球数组内各个元素个数

发布网友发布时间：2022-04-21 05:42

共2个回答

热心网友时间：2022-06-18 07:07

dim
x,n,m
as
long
'n为数组元素数，m为判断变量,x为循环变量
dim
arr(1
to
10),
brr(1
to
10)
‘以10个元素举例
n=10
m=0
for
x=1
to
n
if
arr(x)=brr(x)
then
m=m+1
'一个元素相同
m累计+1
endif
next
x
if
m=n
then
’如果元素相同数量与数组元素总数量相同，则清空数组brr
erase
brr
endif

热心网友时间：2022-06-18 07:07

function arrCount(byref Arr,V as long) as long
dim i as long

for i=lbound(arr) to ubound(arr)

if arr(i)=v then arrCount = arrCount+1
next

end function

用法
arrcount(数组名,1)
就会返回数组中1的个数

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com