VBA 宏 Excel

Question

我正在 Excel 中创建一个程序来获取最高和最低的数字。我得到了最高的数字，但最低的数字始终保持在 0。请帮助我，我做错了什么。 这是我正在使用的号码的屏幕截图:

这是我创建的代码:

Sub Code()
    Dim i As Integer
    Dim max, min As Long

    For i = 1 To 10

        If Cells(i, 1).Value < min Then
            min = Cells(i, 1).Value
        End If

        If Cells(i, 1).Value > max Then
            max = Cells(i, 1).Value
        End If

    Next i

    Cells(3, 4).Value = min
    Cells(4, 4).Value = max

End Sub

Answer 1

替代方案:

max = WorksheetFunction.max(Range("A1:A10"))
min = WorksheetFunction.min(Range("A1:A10"))