请参阅引用应用程序的variables

我正在尝试将单元格的值放在左列（列A）中的Msgbox中。 这个值需要被挑选出来，这取决于B列中的哪个值是最低的，并且应该被重用，并且行长度是变化的（有时候是200行，有时候是230行等）

到目前为止，我写道：

Sub Flow() 'Check lowest value Dim lowestValue As String lowestValue = Application.WorksheetFunction.Min(Sheets("ImportData").Range("B3:B290")) MsgBox "Lowest Flow" & vbNewLine & _ (lowestValue) & vbNewLine & _ "at " & (lowestValue.Offset(0, -1)) End Sub 

很明显， lowestValue.Offset(0, -1))不起作用，但基本上这就是我想要实现的：find最低值，然后在左边看一列，并在单元格中显示该值。

Answer 1

这里有一个方法：

 Sub Flow() 'Check lowest value Dim rData As Range Dim lowestMatch Set rData = Sheets("ImportData").Range("B3:B290") lowestMatch = Application.Match(Application.Min(rData), rData, 0) If Not IsError(lowestMatch) Then MsgBox "Lowest Flow" & vbNewLine & _ rData.Cells(lowestMatch).Value & vbNewLine & _ "at " & rData.Cells(lowestMatch).Offset(0, -1).Value End If End Sub