|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
代码,请审核
- function 数据整理(){
- let k=0,arr=Sheets.Item("Sheet1").Range("a1").CurrentRegion.Value2.slice(1);
- let res=[["序号","楼层","房间","构件类型","构件名称","构件代码","单位","工程量"]];
- for (let i=0;i<arr.length;i+=2){
- let x=arr[i],y=arr[i+1];
- for (let j=3;j<arr[0].length;j++){
- if (x[j]==null) continue;
- res.push([++k,x[0],x[1],x[2],y[2]].concat([x[j],x[j].match(/\w+/)[0],y[j]]));
- }
- }
- Sheets.Item("整理结果").Activate();
- Range("a1").Resize(res.length,res[0].length).Value2=res;
- }
复制代码 |
评分
-
1
查看全部评分
-
|