|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
JSA代码
- function 数据整理(){
- let temp,obj={"表头":["项目管理"]};
- Sheets.Item("Sheet1").UsedRange.Value2.forEach(([x])=>{
- if (x==null || x.length==0 || x.includes("项目名称")){
- if (x!=null && x.includes("项目名称")) temp=obj[x]=obj[x] || [x];
- return;
- }
- let [cs,sz]=x.split(":");
- if (!obj.表头.includes(cs)) obj.表头.push(cs);
- let n=obj.表头.indexOf(cs);
- temp[n]=temp[n]==null?sz:`${temp[n]},${sz}`;
- });
- let res=Object.values(obj);
- Sheets.Item("整理结果").Activate();
- Range("a1").Resize(res.length,res[0].length).Value2=res;
- }
复制代码 |
评分
-
1
查看全部评分
-
|