Excel 如果满足VBA条件，则将单元格的一部分提取到另一个单元格

嘿，刚刚开始学习VBA。 我想做一个函数，提取一个单元格的某些部分，如果另一个单元格满足某些条件，它应该寻找另一个条件，这些函数提取单元格的不同部分，依此类推

认为IFELSE函数可以很好地完成，但我不知道如何编写正确的语法。这是我目前得到的，我不知道这是对的：

Function GetSrn(CellRef1, CellRef2) As String

Dim Result As String

If Mid(CellRef1, 1, 6).Value = "Lenovo" Then

Right(CellRef2, 8) = Result

ElseIf

End If

End Function

CellRef1可能是“联想ThinkPad T440”

CellRef 2可以是“20BUS1234567KDJI786”

---

在这里，我想将“7KDJI786”提取到一个结果单元格中，作为您的示例，如下所示

Function GetSrn(CellRef1, CellRef2) As String

Dim Result As String

If Left(CellRef1, 6).Value = "Lenovo" Then
    GetSrn = Right(CellRef2, 8).Value
    'ElseIf
End If

End Function

将函数名指定给结果，然后将其用作普通工作表公式，例如

=GetSrn（a1，a2）