拾取下一层级内容，平行放入上一层级行

c1988138

LIUZHU 发表于 2023-12-27 22:15
空值报错，可能要增加一个判断条件，遇到空值跳过

老师，麻烦在帮忙改一下。

LIUZHU

c1988138 发表于 2023-12-28 14:09
老师，麻烦在帮忙改一下。

修改了，试下

c1988138

LIUZHU 发表于 2023-12-28 14:16
修改了，试下

换张表，这次不提示报错，但还是不产生数据到对应列，和问题中的附件位置都一致呀，怎么就是没有内容产生呢？

c1988138

LIUZHU 发表于 2023-12-28 14:16
修改了，试下

今天早上再次试了下，还是把代码导入到另外一个工作簿中，标题，列号一样，在新工作簿里就运行不出来数据。这是什么原因？

c1988138

LIUZHU 发表于 2023-12-28 14:16
修改了，试下

不知道怎么调了，麻烦老师帮忙修改下。另一张表有VBA代码，复制JS码过去就是不产生结果，在原表里就会生成。实在不会了

Again123456

1. function test(){
   
2.         let arr = Range("a1:a" + Cells(Rows.Count,1).End(xlUp).Row ).Value2
   
3.         let k = 0 //上级flag
   
4.         let m = 3 //偏移值
   
5.         arr.forEach((v,i) =>{
   
6.                 let s = v[0].substring(0,1)
   
7.                 switch (s) {
   
8.                         case "最" :
   
9.                                 arr[i][1+m] = "清单码"
   
10.                                 arr[i][2+m] = "M码","W码"
    
11.                                 arr[i][3+m] = "W码"
    
12.                                 break
    
13.                         case "B" :
    
14.                             k = i
    
15.                             arr[k][1+m] = v[0]
    
16.                             break
    
17.                         case "M" :
    
18.                             arr[k][2+m] = v[0]
    
19.                             arr[i][1+m] = arr[k][0]
    
20.                             break
    
21.                         case "W" :
    
22.                             arr[k][3+m] = v[0]
    
23.                             arr[i][1+m] = arr[k][0]
    
24.                             break
    
25.                         case "Q" :
    
26.                             arr[i][1+m] = v[0]
    
27.                                 arr[i][2+m] = v[0]
    
28.                                 arr[i][3+m] = v[0]
    
29.                            break
    
30.                         default:
    
31.                             arr[i][1+m] = null
    
32.                                 arr[i][2+m] = null
    
33.                                 arr[i][3+m] = null
    
34.                 }               
    
35.         })
    
36.         Columns("H:AB").ClearContents()
    
37.         Range("h1").Resize(arr.length,arr[0].length).Value2 = arr
    
38.         Columns("H:AB").AutoFit()       
    
39. }

复制代码