Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: xdwy81129

[已解决]数组里循环求最大值和最小值和次数

[复制链接]
 楼主| 发表于 2011-1-23 19:25 | 显示全部楼层
回复 放浪形骸 的帖子

Book1.rar (6.6 KB, 下载次数: 3)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2011-1-23 19:31 | 显示全部楼层
最大的数是1818,1个
最小的是0,15个
是不是?
回复

使用道具 举报

 楼主| 发表于 2011-1-23 19:33 | 显示全部楼层
回复 放浪形骸 的帖子

=MAX(D8:Z8)
=Min(D8:Z8)

用公式就可以就了,只是vba里面写公式,测试了好慢哦
回复

使用道具 举报

发表于 2011-1-23 19:35 | 显示全部楼层
所以用公式快啊。
呵呵
回复

使用道具 举报

 楼主| 发表于 2011-1-23 19:35 | 显示全部楼层
回复 放浪形骸 的帖子

你前面写的代码没有对,后面加的一小部分我也不知道加在哪里,所以还没有vba来测了,我也没有写出来
回复

使用道具 举报

发表于 2011-1-23 19:36 | 显示全部楼层
xdwy81129 发表于 2011-1-23 19:35
回复 放浪形骸 的帖子

你前面写的代码没有对,后面加的一小部分我也不知道加在哪里,所以还没有vba来测了, ...

怎么没有对?
是不是
  1. Set aRr = [D8:Z53]
复制代码

这句的问题?
你给的环境是说从[A1:A200]的某。。。。

回复

使用道具 举报

发表于 2011-1-23 19:42 | 显示全部楼层
把:
  1. For Each tmp In aRr
复制代码
修改成:

  1. For i = 1 to 200
  2. set tmp = cells(i,1)
  3. if i = 1 then
  4. iMax = Cells(i, 1).Value
  5. iMin = iMax
  6. cMax = 1
  7. cMin = 1
  8. end if
复制代码

回复

使用道具 举报

 楼主| 发表于 2011-1-23 19:49 | 显示全部楼层
回复 放浪形骸 的帖子

cMin = 1

前面说过了,这里限定了最小值开始是1,所以求出来的不对,我这里就自己凭根据设定的是10000,才可以

另外,没有求次数的语句呀
回复

使用道具 举报

发表于 2011-1-23 20:16 | 显示全部楼层    本楼为最佳答案   
回复 xdwy81129 的帖子

呃。。。cMin这个标识的是最小值出现的次数。。。汗。。。
iMin才标识的是最小的数啊。。
回复

使用道具 举报

 楼主| 发表于 2011-1-23 20:24 | 显示全部楼层
不纠结这个问题了,谢谢。。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-9 11:27 , Processed in 0.251039 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表