发布网友 发布时间:2022-05-10 03:32
共1个回答
热心网友 时间:2023-10-27 23:39
'自定义公式-按ALT+F11-插入-模块-粘贴代码
Function 多条件提词(a As String, c As String, e As String)
b = Split(a, "|")
For i = 0 To UBound(b)
d = Split(b(i), " ")
m = m + 1
If c = 1 And e = m Then 多条件提词 = d(0)
If c = 2 And e = m Then 多条件提词 = d(1)
If c = 3 And e = m Then 多条件提词 = d(2)
Next
End Function
输入公式右拉下拉