如何用VBA用代码找找出区域中最小值所在的行
答案:2 悬赏:30 手机版
解决时间 2021-12-23 20:25
- 提问者网友：最美的风景
- 2021-12-23 05:52
如何用VBA用代码找找出区域中最小值所在的行
最佳答案
- 五星知识达人网友：酒安江南
- 2021-12-23 07:13
下面表达式可得到A1:D20区域中最小值所在的行号：
Range("A1:D20").Find(Application.Min(Range("A1:D20"))).Row
Range("A1:D20").Find(Application.Min(Range("A1:D20"))).Row
全部回答
- 1楼网友：神也偏爱
- 2021-12-23 07:38
sub 按钮1_单击()
set myb = createobject("scripting.dictionary"): a = 1: activesheet.cells.clear
[c1] = "最大": [l1] = "最小"
for each sh in sheets
if sh.name <> "结果" and application.worksheetfunction.counta(sh.cells) > 0 then
with sh
a = a + 1
for each rng in .[a65536].end(xlup).resize(, 10)
if not myb.exists(rng.value) then
set myb(rng.value) = rng.offset(-1)
else
set myb(rng.value) = union(myb(rng.value), rng.offset(-1))
end if
next
myb(application.worksheetfunction.max(myb.keys)).copy cells(a, 3)
myb(application.worksheetfunction.min(myb.keys)).copy cells(a, 12)
cells(a, 1) = .name
myb.removeall
end with
end if
next
set myb = nothing
end sub
结果在工作表"结果"表中.
附件：book1代码求助.xls
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯