vba根据单元格里字符串（10177付款-支付内蒙古执信医疗器械有限公司货款-韩思航）中的姓名“韩思航”，在另一个单元格里分组“器械组”

假设要搜索的字符串位于单元格A1，要在单元格B1中分组为“器械组”，可以使用以下代码：

Sub GroupByName()
    Dim str As String
    Dim name As String
    
    str = Range("A1").Value
    name = Mid(str, InStr(str, "姓名") + 3)
    
    If InStr(str, "器械") > 0 Then
        Range("B1").Value = "器械组"
    End If
End Sub

这段代码首先获取单元格A1中的字符串，然后使用Mid函数找到姓名，将其赋值给变量name。接着，如果字符串中包含“器械”，则在单元格B1中赋值为“器械组”。