如何查找VBA二维数组V(12,9)的最小元素及其位置

完整实现代码 #

Private Sub Command2_Click()
    Dim V(1 To 12, 1 To 9) As Integer
    Dim minVal As Integer
    Dim minRow As Integer, minCol As Integer
    Dim i As Integer, j As Integer
    
    Randomize
    ' 给数组随机赋值（转成整数匹配数组类型）
    For i = 1 To 12
        For j = 1 To 9
            V(i, j) = Int(Rnd * 50)
        Next j
    Next i
    
    ' 初始化最小值与对应位置
    minVal = V(1, 1)
    minRow = 1
    minCol = 1
    
    ' 遍历数组查找最小值
    For i = 1 To 12
        For j = 1 To 9
            If V(i, j) < minVal Then
                minVal = V(i, j)
                minRow = i
                minCol = j
            End If
        Next j
    Next i
    
    ' 输出结果
    MsgBox "数组中的最小元素是：" & minVal & vbCrLf & _
           "所在行号：" & minRow & vbCrLf & _
           "所在列号：" & minCol
End Sub

核心逻辑说明 #

• 变量初始化：先把数组第一个元素设为初始最小值，对应的行列号设为(1,1)，作为后续比较的基准。
• 双层循环遍历：通过嵌套循环逐个检查数组的每一个元素，一旦发现比当前最小值更小的元素，就更新最小值和对应的行列号。
• 结果输出：用弹窗展示最终结果，也可以根据需求修改为写入Excel单元格等其他输出形式。

细节修正说明 #

原代码中V(i, j) = Rnd * 50会生成0到49.999...的小数，虽然VBA会自动截断小数适配Integer类型，但手动添加Int()函数可以明确转换逻辑，避免隐式转换的不确定性。

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