在VBA中，要获取一个范围内的最大值，你可以使用`Application.WorksheetFunction.Max`方法。以下是一个示例代码，它演示了如何在一个指定的列中找到最大值，并将该值赋给一个变量。
假设你想要在Excel的A列中找到最大值，并将这个值赋给变量`MaxValue`。
```vba
Sub FindMaxValueInColumnA()
Dim MaxValue As Double
Dim ws As Worksheet
Dim rng As Range
' 设置工作表对象
Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据你的工作表名称修改
' 设置要查找最大值的范围，这里假设是从A1到A10
Set rng = ws.Range("A1:A10")
' 使用Max函数找到最大值
MaxValue = Application.WorksheetFunction.Max(rng)
' 输出最大值到立即窗口
Debug.Print "The maximum value in column A is: " & MaxValue
End Sub
```
这段代码首先定义了一个名为`MaxValue`的变量来存储最大值，然后设置了一个工作表对象`ws`和一个范围对象`rng`。`rng`指定了从A1到A10的单元格范围。然后使用`Max`函数找到这个范围内的最大值，并将结果赋给`MaxValue`变量。使用`Debug.Print`将最大值输出到立即窗口。
你可以根据需要修改工作表名称和范围来适应不同的需求。
