如何使用Vlookup匹配返回格式

Question

我正在尝试做Vlookup但是你们都知道vlookup不能将格式与值一起返回。我在网上看过，我可以使用Vlookup with Match来返回格式。所以请教我如何将值与格式一起返回。请注意，并非所有“look”中的值都可以找到，这就是使用IsError的原因。谢谢你的帮助。

 With Sheet3 
 x = 2
 Do Until IsEmpty(.Range("F" & x).value)
    look = .Range("F" & x).value
    result = Application.VLookup(look, Sheet2.Range("B:H"), 2, False)
    If Not IsError(result) Then
        .Range("G" & x).value = result
    Else
        .Range("G" & x).value = " "
    End If
    x = x + 1
 Loop
 End With 

Answer 1

这通常可用于返回单元格的格式：

Range.DisplayFormat

MS文档为here。

细胞的颜色：

 getColorIndex = ActiveCell.Interior.ColorIndex

设置边框信息：

 With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom) 
   .LineStyle = xlContinuous 
   .Weight = xlThin 
   .ColorIndex = 3 
 End With

只需反转代码即可检查值而不是设置值。文档here。

希望这有帮助！