按分隔符拆分数据，请用一个公式解决

⭐【案例】

如下图，B列每一行都有多个姓名，姓名之间用顿号（、）隔开，需要将数据拆分为右边的形式，即每行数据只有一个姓名。

⭐【操作效果】

⭐【JSA代码】

按ALT+F11打开WPS宏编辑器，复制下方代码粘贴到编辑器中。

function 按换行符拆分(){

j = 2 //此处表示F列的第2行，赋值给变量j

n = Range("a"+Rows.Count).End(3).Row //获取A列最后一行数据行号

for(i = 2;i<=n;i++){ //从第2行循环到最后一行

ar = Cells.Item(i, 'b').Value2.split('、') //按换行符对B列进行拆分，存入数组ar

for(xm of ar){ //遍历数组ar

Range("a" + i + ":d" + i).Copy(Cells.Item(j, "f")) //将数据复制到F列

Cells.Item(j, "g").Value2 = xm //将拆分后的姓名写入G列

j = j + 1 //对J列行号累加，使得下次循环从下一行开始写入

}

}

}

⭐【问题】

请用一个数组公式解决此问题，并将结果写在评论区。

⭐【素材下载】

https://kdocs.cn/l/cdh1nAUEnv4g