数据写入........

哒哒哒是的撒多 · 发表于 2024-4-17 20:46

...................................

Again123456 · 发表于 2024-4-18 10:45

数据填入制式表格内.7z (8.03 KB, 下载次数: 10) 没仔细想，随便搞了一下

铁马1980 · 发表于 2024-4-18 17:18

练个手，VBA思维

数据填入制式表格内1.zip (9.91 KB, 下载次数: 2)

Again123456 · 发表于 2024-4-19 16:46

function test(){
Application.ScreenUpdating = false
let dataSource = Sheets("Sheet1").Range("b1:b" + Sheets("Sheet1").Cells(Rows.Count,2).End(xlUp).Row).Value2.flat().filter(v => v)
let res = dataSource.reduce((p,c) => {
if(c.includes("：")){
let [k,v] = c.split("：")
if (p[0].includes(k)){
p[p["r"]][p[k]] = p[p["r"]][p[k]] ? p[p["r"]][p[k]] + "," + v : v
}else{
p[k] = p[0].push(k) - 1
p[p["r"]][p[k]] = v
}
}else{
p["r"] = p.push([c]) - 1
}
return p
},[["项目名称"]])
Sheets("Sheet2").Range("a8").CurrentRegion.ClearContents()
Sheets("Sheet2").Range("a8").Resize(res.length,res[0].length).Value2 = res
Application.ScreenUpdating = true
}

复制代码

抽空认真的做了一下，一个循环搞定

xd3210 · 发表于 2024-4-21 22:20

Again123456 发表于 2024-4-19 16:46
抽空认真的做了一下，一个循环搞定

p["r"] = p.push([c]) - 1 ,此句不好理解，恳请指点！

Again123456 · 发表于 2024-4-22 19:24

xd3210 发表于 2024-4-21 22:20
p["r"] = p.push([c]) - 1 ,此句不好理解，恳请指点！

push() 方法可向数组的末尾添加一个或多个元素，并返回新的长度。

就是数组的长度length,-1就成了当前数组的下标了。

这就是为了取得要修改两维数组元素据在的行数。
同理，p[k] = p[0].push(k) - 1就是列数

xd3210 · 发表于 2024-4-22 19:30

Again123456 发表于 2024-4-22 19:24
push() 方法可向数组的末尾添加一个或多个元素，并返回新的长度。

就是数组的长度length,-1就成了当前 ...

谢谢！！！

Again123456 · 发表于 2024-4-22 19:36

本帖最后由 Again123456 于 2024-4-23 08:20 编辑

xd3210 发表于 2024-4-21 22:20
p["r"] = p.push([c]) - 1 ,此句不好理解，恳请指点！

发重复了....................

Again123456 · 发表于 2024-4-22 19:38

xd3210 发表于 2024-4-22 19:30
谢谢！！！

可能你想知道的不是push吧：这里p是数组，数组也是对象，可以增加属性，因此这里就是用数组增加属性当字典使用的

LIUZHU · 发表于 2024-4-23 16:15

参数2和参数1顺序是反的，这是刻意设计成这个样子的吗？还是应该按照参数1，参数2，参数3...这样的顺序来？

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

[求助] 数据写入........