如何在VBA二维数组中查找最小值及其相邻已填充值？

Hey，让我一步步帮你解决这两个VBA数组问题！

查找数组值的方法取决于数组是一维还是二维，下面给你几种实用方案：

一维数组的查找 #

1. 循环遍历（最通用，无依赖） #

不管数组存的是数字、文本还是混合类型，循环遍历都能搞定，还能灵活处理“找第一个匹配”或“找所有匹配”的场景：

Sub FindIn1DArray()
    Dim arr() As Variant
    arr = Array("Cat", "Dog", "Bird", "Dog") '示例数组
    Dim target As Variant: target = "Dog"
    Dim i As Integer
    
    '找第一个匹配项
    For i = LBound(arr) To UBound(arr)
        If arr(i) = target Then
            Debug.Print "找到目标值，索引位置：" & i
            Exit Sub '如果要找所有匹配，删掉这句即可
        End If
    Next i
    
    Debug.Print "数组里没找到这个值哦"
End Sub

2. 用Application.Match（快捷但需处理错误） #

如果数组是一维的，可以借助Excel的Match函数快速定位，但要注意：Match返回的是1-based索引，而VBA数组默认是0-based的，需要转换；另外找不到值时会报错，必须加错误捕获：

Sub FindWithMatch()
    Dim arr() As Variant
    arr = Array(15, 25, 35, 45)
    Dim target As Variant: target = 35
    Dim matchPos As Variant
    
    On Error Resume Next '捕获找不到值的错误
    matchPos = Application.Match(target, arr, 0) '0表示精确匹配
    On Error GoTo 0
    
    If Not IsError(matchPos) Then
        Debug.Print "找到目标值，数组索引：" & matchPos - 1 '转成0-based
    Else
        Debug.Print "未找到目标值"
    End If
End Sub

二维数组的查找 #

二维数组需要嵌套循环遍历行和列，示例如下：

Sub FindIn2DArray()
    Dim arr(1 To 3, 1 To 2) As Variant
    '填充示例数据
    arr(1, 1) = "番茄": arr(1, 2) = 8
    arr(2, 1) = "黄瓜": arr(2, 2) = 5
    arr(3, 1) = "茄子": arr(3, 2) = 7
    
    Dim target As Variant: target = 5
    Dim row As Integer, col As Integer
    
    For row = LBound(arr, 1) To UBound(arr, 1)
        For col = LBound(arr, 2) To UBound(arr, 2)
            If arr(row, col) = target Then
                Debug.Print "找到目标值，位置：行" & row & "，列" & col
                Exit Sub
            End If
        Next col
    Next row
    
    Debug.Print "数组里没找到这个值"
End Sub

你已经用Application.Min(arr)拿到了最小值，接下来核心是先找到最小值的位置，再检查相邻的已填充值。针对你定义的arr(0 To 5, 1 To 2)（6行2列的数组），我写了完整的实现代码，还加了注释：

Sub GetAdjacentValuesOfMin()
    Dim arr(0 To 5, 1 To 2) As Variant
    '替换成你自己的数组填充逻辑
    arr(0, 1) = 5: arr(0, 2) = ""
    arr(1, 1) = 3: arr(1, 2) = 7
    arr(2, 1) = "": arr(2, 2) = 2
    arr(3, 1) = 9: arr(3, 2) = 4
    arr(4, 1) = 6: arr(4, 2) = ""
    arr(5, 1) = 1: arr(5, 2) = 8 '这里的1是最小值
    
    '第一步：获取最小值
    Dim minVal As Variant
    minVal = Application.Min(arr)
    Debug.Print "数组最小值：" & minVal
    
    '第二步：找到最小值的行、列索引
    Dim rowIdx As Integer, colIdx As Integer
    Dim isFound As Boolean: isFound = False
    
    For rowIdx = LBound(arr, 1) To UBound(arr, 1)
        For colIdx = LBound(arr, 2) To UBound(arr, 2)
            If arr(rowIdx, colIdx) = minVal Then
                isFound = True
                Exit For
            End If
        Next colIdx
        If isFound Then Exit For
    Next rowIdx
    
    If Not isFound Then
        Debug.Print "数组全为空，找不到最小值"
        Exit Sub
    End If
    Debug.Print "最小值位置：行" & rowIdx & "，列" & colIdx
    
    '第三步：收集相邻的已填充值
    Dim adjacentVals As Collection
    Set adjacentVals = New Collection
    
    '检查同一行的另一列（最直接的相邻）
    Dim otherCol As Integer
    otherCol = IIf(colIdx = 1, 2, 1) '切换到另一列
    If Not IsEmpty(arr(rowIdx, otherCol)) Then
        adjacentVals.Add arr(rowIdx, otherCol), Key:="同一行第" & otherCol & "列"
    End If
    
    '检查上一行（如果不是第一行）
    If rowIdx > LBound(arr, 1) Then
        '上一行同列
        If Not IsEmpty(arr(rowIdx - 1, colIdx)) Then
            adjacentVals.Add arr(rowIdx - 1, colIdx), Key:="上一行第" & colIdx & "列"
        End If
        '上一行另一列
        If Not IsEmpty(arr(rowIdx - 1, otherCol)) Then
            adjacentVals.Add arr(rowIdx - 1, otherCol), Key:="上一行第" & otherCol & "列"
        End If
    End If
    
    '检查下一行（如果不是最后一行）
    If rowIdx < UBound(arr, 1) Then
        '下一行同列
        If Not IsEmpty(arr(rowIdx + 1, colIdx)) Then
            adjacentVals.Add arr(rowIdx + 1, colIdx), Key:="下一行第" & colIdx & "列"
        End If
        '下一行另一列
        If Not IsEmpty(arr(rowIdx + 1, otherCol)) Then
            adjacentVals.Add arr(rowIdx + 1, otherCol), Key:="下一行第" & otherCol & "列"
        End If
    End If
    
    '输出结果
    If adjacentVals.Count > 0 Then
        Debug.Print "相邻的已填充值："
        Dim item As Variant
        For Each item In adjacentVals
            Debug.Print "- " & item & "（" & adjacentVals.Key(item) & "）"
        Next item
    Else
        Debug.Print "最小值周围没有已填充的相邻值"
    End If
End Sub

关键说明： #

• 因为Application.Min只返回值，不返回位置，所以必须手动遍历数组找到最小值的坐标。
• 用IsEmpty判断单元格是否已填充（如果你的“已填充”是指非空值的话）。
• 代码里的“相邻”包含了同一行另一列、上下行的同列和另一列，如果你的需求只需要同一行的另一列，删掉上下行的检查逻辑即可。

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