回答如下：你可以使用以下VBA代码来找到一列数据中的最大值和最小值：
```vba
Sub FindMinMax()
Dim rng As Range
Dim cell As Range
Dim maxVal As Double
Dim minVal As Double
' 设置要查找的范围
Set rng = Range("A1:A10") ' 更改为你的列范围
' 初始化最大值和最小值
maxVal = rng.Cells(1).Value
minVal = rng.Cells(1).Value
' 循环遍历范围中的每个单元格
For Each cell In rng
' 检查当前单元格的值是否大于最大值
If cell.Value > maxVal Then
maxVal = cell.Value ' 更新最大值
End If
' 检查当前单元格的值是否小于最小值
If cell.Value < minVal Then
minVal = cell.Value ' 更新最小值
End If
Next cell
' 显示最大值和最小值
MsgBox "最大值: " & maxVal & vbNewLine & "最小值: " & minVal
End Sub
```
在上面的代码中，我们首先定义了一个范围变量`rng`，用于指定要查找的列范围。然后，我们初始化了最大值`maxVal`和最小值`minVal`，将其分别设置为范围中第一个单元格的值。
接下来，我们使用`For Each`循环遍历范围中的每个单元格。对于每个单元格，我们检查其值是否大于最大值，如果是，则更新最大值。然后，我们检查其值是否小于最小值，如果是，则更新最小值。
循环完毕后，我们使用`MsgBox`函数显示找到的最大值和最小值。
请记得将代码中的`"A1:A10"`更改为你实际的列范围。
Sub test()a = WorksheetFunction.Max("a:a")b = WorksheetFunction.Min("a:a")End Suba是a列最大值b是b列最小值
