Excel VBA中获取最大值与最小值所在单元格地址的方法

假设你已经明确了目标数据范围（比如A1:A200），下面一步步帮你实现获取地址的需求：

1. 先声明所需变量 #

先把要用到的范围对象、数值变量和地址字符串变量都定义好：

Dim rng As Range
Dim X As Double, Y As Double
Dim Xadd As String, Yadd As String
Set rng = Range("A1:A200") ' 替换成你的实际数据列范围

2. 获取最大值和最小值 #

这部分你已经搞定了，直接用Excel内置函数取值：

X = Application.Max(rng)
Y = Application.Min(rng)

3. 定位并获取单元格地址 #

用Range.Find方法找到对应数值的单元格，再通过Address属性提取地址字符串：

' 处理最大值X的地址
If Not rng.Find(What:=X, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
    Xadd = rng.Find(What:=X, LookIn:=xlValues, LookAt:=xlWhole).Address
Else
    Xadd = "未找到最大值" ' 防错：如果范围里没找到对应值的提示
End If

' 处理最小值Y的地址
If Not rng.Find(What:=Y, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
    Yadd = rng.Find(What:=Y, LookIn:=xlValues, LookAt:=xlWhole).Address
Else
    Yadd = "未找到最小值"
End If

额外提醒 #

• 如果你的序列里有多个相同的最大值/最小值，Find默认返回第一个匹配的单元格地址。要是需要所有匹配地址，可以用FindNext循环遍历收集。
• LookAt:=xlWhole是精确匹配（避免把100识别成10的一部分），如果需要模糊匹配可以改成xlPart。

举个实际例子：假设最大值10在A11，最小值-10在A30，运行代码后Xadd会是$A$11，Yadd会是$A$30。

内容的提问来源于stack exchange，提问作者ADDY