如何使用WPS宏拆分姓名数据列
⭐【案例】
如下图，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
原文链接：https://bbs.wps.cn/topic/9727
相关文章