提取同名的信息，谢谢

blackwolf88

想用js宏将左侧同名的人提取出来，见图的右边，获取他们的性别等信息，加个序号。
拜谢各位了

xd3210

LIUZHU

LIUZHU

附件在此，请测试

blackwolf88

xd3210 发表于 2024-1-11 16:09

谢谢帮助，当姓名有三个相同的时候，就会多提取了

blackwolf88

LIUZHU 发表于 2024-1-11 16:39
附件在此，请测试

多谢大佬，非常有用

xd3210

blackwolf88 发表于 2024-1-11 16:50
谢谢帮助，当姓名有三个相同的时候，就会多提取了

确实有问题，三楼代码非常精炼！

xd3210

blackwolf88 发表于 2024-1-11 16:50
谢谢帮助，当姓名有三个相同的时候，就会多提取了

作了调整，请测试
function duplicate(){
        console.clear();
        let arr=Range("a1").CurrentRegion.Value2.slice(1);
        let arr_dup=[];
        let xh=0;
        for(let i=0;i<arr.length;i++){
                for(let j=0;j<arr.length;j++){
                        if(j==i)continue;
                        if(arr[0]==arr[j][0]){
                                arr_dup.push([xh,arr[0],arr[2]]);
                                xh++;
                                break;
                        }
                }
        }
        arr_dup.unshift(['序号','姓名','性别']);
        Range("g1").CurrentRegion.Clear();
        Range("g1").Resize(arr_dup.length,3).Formula=arr_dup;
}

blackwolf88

xd3210 发表于 2024-1-12 09:12
作了调整，请测试
function duplicate(){
        console.clear();

这次，只显示标题，同名的一个也不能提取

xd3210

blackwolf88 发表于 2024-1-13 11:56
这次，只显示标题，同名的一个也不能提取

不好意思，没有注意观察，arr[0]、arr[2]缺少一维下标，在编辑器里是有的，但粘贴到网页上就消失了，请手工添上