VBA实现同一类型数据统计最大值和最小值

最新推荐文章于 2024-06-25 13:45:18 发布

啊东东_

最新推荐文章于 2024-06-25 13:45:18 发布

阅读量4.2k

点赞数 1

分类专栏： VBA 文章标签：学习测试用例

本文链接：https://blog.csdn.net/h_XUYUAN/article/details/125900376

版权

VBA 专栏收录该内容

16 篇文章 4 订阅

订阅专栏

本文介绍了一种使用VBA来快速统计装箱号为A1、A2和A3中编号的最大值和最小值的方法，避免了数据量大时手动操作的繁琐。通过在Sheet1、Sheet2和Sheet3之间进行数据过滤、复制和计算，实现了自动化处理，显著提高了工作效率。

摘要由CSDN通过智能技术生成

一、案例概述：
要统计装箱号为A1、A2和A3中编号的最大值和最小值，如果数据量较少的话可以使用最“笨”的办法进行实现，但是如果数据量几千几万行的话，“笨”办法就没有任何优势了，有可能一个数据加班到深夜才能做出来，本着能省时间绝不多花一分钟的态度，我们使用VBA来实现此功能，具体案例如下：

二、代码部分：

Sub shishi()
Set 表1 = Sheets("Sheet1")
Set 表2 = Sheets("Sheet2")
Set 表3 = Sheets("Sheet3")
i = 2
Do While 表2.Range("A" & i) <> ""
    表1.Range("a1").CurrentRegion.AutoFilter
    表1.Range("a1").CurrentRegion.AutoFilter Field:=1, Criteria1:=表2.Range("A" & i)
    表1.Range("C:C").Copy 表3.Range("A1")
    表3.Range("A1").Delete shift:=xlUp
    arr = 表3.Range("A1").CurrentRegion
    最大值 = Excel.Application.WorksheetFunction.Max(arr)
    最小值 = Excel.Application.WorksheetFunction.Min(arr)
    'Set 单元格 = 表1.Columns(3).Find(最大值, lookat:=xlWhole, searchorder:=xlRows)
    'If Not 单元格 Is Nothing Then
    '    表2.Range("C" & i) = 表1.Range(Replace(单元格.Address, "$", "")).Offset(0, -1)
    'End If
    表2.Cells(i, 2) = 最大值
    表2.Cells(i, 3) = 最小值
    表3.UsedRange.Clear
    i = i + 1
Loop
表1.Range("a1").CurrentRegion.AutoFilter
MsgBox "已经完成"
End Sub

三、结果呈现