两种方法来求数组中最大值和最小值和次数(VBA+函数公式)

wjx_sjz · 发表于 2012-3-4 23:40

求解，谢谢{:35:}

lihaoli121212 · 发表于 2012-3-15 14:06

kankan kan da an

无毒无偶 · 发表于 2012-3-15 16:41

看看答案~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1982zyh · 发表于 2012-3-15 20:31

看看

my917 · 发表于 2012-3-16 17:19

回帖看看

qingfeng_qf · 发表于 2012-3-16 17:25

来看看答案了

leiliang_98 · 发表于 2012-3-17 22:39

Sub 排列()
Dim i, t, j, m As Long
For i = 2 To 15
With Sheets(i)
t = .Range("w1000").End(xlUp).Row
.Range("w2", "w" & t).Cut .Range("b2")
.Range("n2", "n" & t).Cut .Range("c2")
.Range("m2", "m" & t).Cut .Range("d2")
.Range("v2", "v" & t).Cut .Range("e2")
.Range("p2", "p" & t).Cut .Range("f2")
.Range("q2", "q" & t).Cut .Range("g2")
.Range("r2", "r" & t).Cut .Range("h2")
.Range("s2", "s" & t).Cut .Range("i2")
.Range("t2", "t" & t).Cut .Range("j2")
.Range("u2", "u" & t).Cut .Range("k2")
.Range("o2", "o" & t).Cut .Range("l2")
m = .Range("a1000").End(xlUp).Row
For j = 3 To m
.Cells(j, 12) = Sheets("参数").Range("b3") & "（" & .Cells(j, 12) & "）班"
Next j
End With
Next i
End Sub

幽月儿 · 发表于 2012-3-17 22:42

看看，谢谢分享！

gun44 · 发表于 2012-3-19 09:40

刚好有类似的问题。

RadioKaKa · 发表于 2012-3-19 14:45

学习了多谢楼主支持一下因为不会啊

		自动登录	找回密码
密码			注册

[函数] 两种方法来求数组中最大值和最小值和次数(VBA+函数公式)