VBA不连续的三列数据提取唯一值

一壶鱼

不连续的三列数据提取唯一值，求助，上传附件。

一壶鱼

说白了，就是按照顺序填进去，不要出现重复就好

仙女配凡人

vba数组很难操作，有JS写更方便点，用WPS Office 2022打开使用

1. function test_data()
   
2. {
   
3.   const data = [];
   
4.   for (let sht of [Sheets('一层'), Sheets('二层')])
   
5.   {
   
6.     let c1 = sht.Range('B5:B15').Value2
   
7.       , c2 = sht.Range('H5:H15').Value2
   
8.       , c3 = sht.Range('M5:M15').Value2
   
9.       , arr = [['第' + sht.Name]].concat(c1, c2, c3);
   
10. 
    
11.     //完成层数
    
12.     arrdim(data, arr);
    
13. 
    
14.     //完成厨房间
    
15.     c1 = sht.Range('C19:C29').Value2;
    
16.     c1.unshift([sht.Range('B18').Value2]);
    
17.     arrdim(data, c1);
    
18. 
    
19.     //完成卫生间1
    
20.     c1 = sht.Range('H19:H29').Value2;
    
21.     c1.unshift([sht.Range('G18').Value2]);
    
22.     arrdim(data, c1);
    
23. 
    
24.     //完成卫生间2
    
25.     c1 = sht.Range('M19:M29').Value2;
    
26.     c1.unshift([sht.Range('L18').Value2]);
    
27.     arrdim(data, c1);
    
28. 
    
29.   };
    
30. 
    
31.   let page = Math.ceil(data.length / 28); //分页取整，若有余数+1
    
32.   for (let i = 1; i <= page; i++)
    
33.   {
    
34.     let sht = Sheets('装修' + i);
    
35.     if (i < page) {
    
36.       let arr = data.slice(i * 28 - 28, i * 28).map(i => [i]);
    
37.       sht.Range('C5:C32').Value2 = arr
    
38. 
    
39.     } else {
    
40.       let arr = data.slice(i * 28 - 28).map(i => [i]);
    
41.       sht.Range('C5').Resize(arr.length, 1).Value2 = arr
    
42.     }
    
43. 
    
44.   }
    
45.   
    
46.   alert('完成')
    
47. 
    
48. }
    
49. 
    
50. function arrdim(data, arr)
    
51. {
    
52.   let res = [];
    
53.   arr.forEach(i => i[0] ? res.push(i[0]) : '');
    
54. 
    
55.   let req = Array.from(new Set(res));
    
56.   req.forEach(i => data.push(i));
    
57.   data.push('', '')
    
58.   
    
59. }

复制代码

一壶鱼

麻烦你了，程序执行大致OK，还有点细节