部分匹配的Vlookup可以通过使用VBA代码实现。以下是一个示例代码：

Function PartialVlookup(lookup_value As String, table_array As Range, col_index As Integer) As Variant
    Dim cell As Range
    Dim partial_match As Boolean
    
    partial_match = False
    
    For Each cell In table_array.Columns(1).Cells
        If InStr(1, cell.Value, lookup_value) > 0 Then
            partial_match = True
            Exit For
        End If
    Next cell
    
    If partial_match Then
        PartialVlookup = Application.WorksheetFunction.VLookup(lookup_value, table_array, col_index, False)
    Else
        PartialVlookup = "No match"
    End If
End Function

以上代码定义了一个自定义函数PartialVlookup，它接受三个参数：要查找的值、查找范围和要返回的列索引。函数的作用是在查找范围中进行部分匹配的Vlookup，如果找到匹配项，则返回对应的值；如果没有找到匹配项，则返回"No match"。

要使用这个自定义函数，将代码复制粘贴到Excel的VBA编辑器中（按下Alt+F11打开），然后在Excel中输入以下公式：

=PartialVlookup(要查找的值, 查找范围, 要返回的列索引)

例如，假设要在A1:A10范围内进行部分匹配的Vlookup，要查找的值在B1单元格中，要返回的列索引为2，则可以使用以下公式：

=PartialVlookup(B1, A1:A10, 2)

这将返回在A1:A10范围内部分匹配的值所在的第二列的值。如果找不到部分匹配的值，则返回"No match"。