帮我写一个vba function ，判断输入的单元格是否包含“补强”，如果有就返回当前基准单位格，向左偏移2个单位的单元格的值

当然可以！以下是一个VBA函数的示例代码，用于判断输入的单元格是否包含"补强"，如果有就返回当前基准单位格，向左偏移2个单位的单元格的值：

Function GetOffsetValue(cell As Range) As Variant
    Dim baseCell As Range
    Dim offsetCell As Range
    
    ' 判断输入单元格是否包含"补强"
    If InStr(1, cell.Value, "补强") > 0 Then
        ' 获取当前基准单元格
        Set baseCell = Application.Caller
        
        ' 向左偏移2个单位
        Set offsetCell = baseCell.Offset(0, -2)
        
        ' 返回偏移单元格的值
        GetOffsetValue = offsetCell.Value
    End If
End Function

你可以将以上代码复制粘贴到你的VBA编辑器中，并在需要的地方调用该函数。例如，在Excel中添加一个新的模块，然后在单元格中使用`=GetOffsetValue(A1)`来判断A1单元格是否包含"补强"，如果有，则返回A1单元格向左偏移2个单位的单元格的值。

请注意，以上代码中，首先使用了VBA的`InStr`函数来判断输入单元格的值中是否包含"补强"。如果包含，则获取当前基准单元格，然后使用`Offset`方法向左偏移2个单位，最后返回偏移单元格的值作为函数的结果。如果输入的单元格不包含"补强"，那么函数不会返回任何值。