数据表转置VBA请教

838054438 · 发表于 2024-3-12 09:40

大该的需求是要把巡检初始的数据洗成最终表样，表样的数据字段都是固定，单位用的是wps，尝试用Python转，Python转置，环境用户需单独配置，VBA不懂，求帮忙

边缘码农 · 发表于 2024-3-12 11:18

根据初始数据，手工填写最终表格，明确对应关系。单位只能使用WPS？有没有开通VBA功能？

838054438 · 发表于 2024-3-12 11:26

边缘码农发表于 2024-3-12 11:18
根据初始数据，手工填写最终表格，明确对应关系。单位只能使用WPS？有没有开通VBA功能？

有的，wps有VBA

sunya_0529 · 发表于 2024-3-12 12:49

WPS里的JSA练习一下——

微信截图_20240312124832.png

838054438 · 发表于 2024-4-18 16:00

sunya_0529 发表于 2024-3-12 12:49
WPS里的JSA练习一下——

大佬，您好，我测试，今天发现某些版本支持ES5的语法，您有空可以写一下吗？

838054438 · 发表于 2024-4-19 09:59

sunya_0529 发表于 2024-3-12 12:49
WPS里的JSA练习一下——

大佬，发现某些特殊版本无法运行，问一下金山他们只支持ES5写法，代码要如何修改？

sunya_0529 · 发表于 2024-4-19 10:32

838054438 发表于 2024-4-19 09:59
大佬，发现某些特殊版本无法运行，问一下金山他们只支持ES5写法，代码要如何修改？

我这里没有ES5运行环境，所以没办法检查结果是否正确。

function 提取数据2(){
var awf=Application.WorksheetFunction;
var res=[["编号","单位","巡检日期","类别","巡检项","结果","问题","巡检时间","异常检查项"]];
var dba=Sheets("巡检数据总表").Range("A1").CurrentRegion.Value2;
dba.slice(1).forEach(function(r,i){
var bh=r[0];//编号
var dw=r.slice(-2)[0];//单位
var rq=r.slice(-3)[0];//巡检日期
var yc=r.slice(-1)[0];//异常检查项
for(var j=1;j<r.length-4;j+=4){
var lb=dba[0][j].replace("巡检项","");//类别
var xj=r[j]?.replace(/[；。]\s*,*|，\s+/g,"；\n")?.replace(/）,/g,"）\n");//巡检项
var jg=r[j+1]?.replace(/[；。]\s*,*|，\s+/g,"；\n")?.replace(/）,/g,"）\n");//结果
var wt=r[j+2]?.replace(/[；。]\s*,*|，\s+/g,"；\n")?.replace(/）,/g,"）\n");//问题
res.push([bh,dw,awf.Text(rq,"yyyy/mm/dd"),lb,xj,jg,wt,awf.Text(r[j+3],"HH:MM"),yc]);
}
});
with(Sheets("报表")){
Cells.Clear();
Range("A1").Resize(res.length,res[0].length).Value2=res;
}
}

复制代码

838054438 · 发表于 2024-4-19 17:31

sunya_0529 发表于 2024-4-19 10:32
我这里没有ES5运行环境，所以没办法检查结果是否正确。

表哥，我看WPS，有VB环境和JS环境两种，你看能用VBA再写下不，谢谢！

sunya_0529 · 发表于 2024-4-19 20:03

本帖最后由 sunya_0529 于 2024-4-19 20:06 编辑

838054438 发表于 2024-4-19 17:31
表哥，我看WPS，有VB环境和JS环境两种，你看能用VBA再写下不，谢谢！

兄弟你这有点得陇望蜀呀~

最近在学习JSA，也没时间写VBA，你凑和用用吧

838054438 · 发表于 2024-4-22 09:09

sunya_0529 发表于 2024-4-19 20:03
兄弟你这有点得陇望蜀呀~

最近在学习JSA，也没时间写VBA，你凑和用用吧

要求是多了，不过真的感谢，谢谢！

		自动登录	找回密码
密码			免费注册