vba根据数组列字符串中的姓名“韩思航”，在另一个数组列里分组“器械组”

可以使用 VBA 的循环和字符串比较来实现该功能。以下是一个示例代码：

Sub GroupByName()
    Dim nameArray As Variant
    Dim groupArray As Variant
    Dim i As Long, j As Long
    
    '假设姓名数组和分组数组分别为以下两个列的数据
    nameArray = Range("A2:A10").Value
    groupArray = Range("B2:B10").Value
    
    '循环遍历姓名数组，找到姓名为“韩思航”的行，并将其分组设置为“器械组”
    For i = LBound(nameArray, 1) To UBound(nameArray, 1)
        If nameArray(i, 1) = "韩思航" Then
            groupArray(i, 1) = "器械组"
        End If
    Next i
    
    '将更新后的分组数组写回到原始数据范围
    Range("B2:B10").Value = groupArray
End Sub

在上面的代码中，我们首先将姓名数组和分组数组读入到变量中，然后使用一个循环遍历姓名数组，对于每一个姓名为“韩思航”的行，将其对应的分组设置为“器械组”。最后，将更新后的分组数组写回到原始数据范围。