设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 自动求最大值和最小值

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 1719|回复: 3

[已解决]自动求最大值和最小值

发表于 2016-5-16 17:55 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

如何根据W列的内容自动求最大值和最小值？请大神帮忙，谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-5-17 10:11

Sub Macro1()
Dim arr, brr, i&
arr = [a2:a5]
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If InStr(arr(i, 1), "±") Then
brr(i, 1) = 0 - Val(Mid(arr(i, 1), 2))
brr(i, 2) = Val(Mid(arr(i, 1), 2))
ElseIf InStr(arr(i, 1), ",") Then
x = Split(arr(i, 1), ",")
brr(i, 1) = Application.Min(Val(x(0)), Val(x(1)))
brr(i, 2) = Application.Max(Val(x(0)), Val(x(1)))
Else
brr(i, 1) = 0: brr(i, 2) = Val(arr(i, 1))
End If
Next
Range("b2").Resize(UBound(brr), 2) = brr
End Sub

复制代码

跳转到最佳答案楼层

最大值.jpg

相关帖子

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2016-5-16 20:27 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

如果根据W列的内容，手动求最大值和最小值是怎样的？

请举例说明

回复

使用道具举报

发表于 2016-5-17 10:11 | 显示全部楼层本楼为最佳答案

工作中最常用的Excel函数公式，全印在一张鼠标垫上

这个最佳答案由 dsmch 给出，感谢 dsmch 的回答。

单击隐藏图章

Sub Macro1()
Dim arr, brr, i&
arr = [a2:a5]
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If InStr(arr(i, 1), "±") Then
brr(i, 1) = 0 - Val(Mid(arr(i, 1), 2))
brr(i, 2) = Val(Mid(arr(i, 1), 2))
ElseIf InStr(arr(i, 1), ",") Then
x = Split(arr(i, 1), ",")
brr(i, 1) = Application.Min(Val(x(0)), Val(x(1)))
brr(i, 2) = Application.Max(Val(x(0)), Val(x(1)))
Else
brr(i, 1) = 0: brr(i, 2) = Val(arr(i, 1))
End If
Next
Range("b2").Resize(UBound(brr), 2) = brr
End Sub

复制代码

新建 Microsoft Excel 工作表.rar

7.4 KB, 下载次数: 7

回复

使用道具举报

楼主| 发表于 2016-5-17 10:19 | 显示全部楼层

如果根据W列的内容，手动求最大值和最小值是怎样的？

请举例说明

意思就是，当W1内容是“±10mm”那么Z1列自动显示为-10，AA1列自动显示为10

回复

使用道具举报

发新帖

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

GMT+8, 2024-4-25 10:12 , Processed in 0.688445 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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