Question

excel vba函数排序

1.将B15内容引用到B10

2.并用函数将重复次数加到名字前面

Answer 1

Sub s()
    arr = [b11:k14]
    t = "(" & arr(2, arr(3, 1) + 1) & ")"
    For i = 1 To 10
        t = t & arr(3, i)
        If arr(4, i) = "+" Then t = t & "+" & IIf(arr(2, arr(3, i + 1) + 1) = 0, "空", "(" & arr(2, arr(3, i + 1) + 1) & ")")
    Next
    [b10] = t
End Sub