Sub FormatWithVLookup()
    Dim lookupValue As Variant
    Dim tableArray As Range
    Dim colIndex As Integer
    Dim rangeLookup As Boolean
    
    ' 设置查找的值
    lookupValue = Range("A1").Value
    
    ' 设置要进行查找的数据范围
    Set tableArray = Range("B1:C10")
    
    ' 设置要返回的值所在的列号
    colIndex = 2
    
    ' 设置是否进行精确匹配
    rangeLookup = False
    
    ' 使用VLookup函数查找并格式化
    With Range("A1")
        .Value = WorksheetFunction.VLookup(lookupValue, tableArray, colIndex, rangeLookup)
        .NumberFormat = "0.00"
        .Font.Color = RGB(255, 0, 0)
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub