当sheet1表中B列出现的部分代码与A类别信息信息相同时复制sheet2内

fengye5200 · 发表于 2024-7-30 14:05

各位大神，求助！

当sheet1中B列代码在A列相同出现后，将A列对应单元格数值复制到sheet2对应单元格内，信息如下：

求助，谢谢！

Again123456 · 发表于 2024-7-30 15:29

本帖最后由 Again123456 于 2024-7-30 15:33 编辑

Again123456 · 发表于 2024-7-30 15:32

本帖最后由 Again123456 于 2024-7-30 16:04 编辑

function test (){
let data = Sheets("Sheet1").Range("a2:b" + Sheets("Sheet1").Cells(Rows.Count,1).End(xlUp).Row).Value2
let types = data.map(v => v[1]).filter(v => v)
let res = [types.map(v =>`含（${v}）信息列`)]
data.forEach(v =>{
types.forEach((type,i)=>{
if (v[0] && v[0].includes(type)){
types[types[i]] ??= 0
types[types[i]] ++
res[types[types[i]]] ??= []
res[types[types[i]]][i] = v[0]
}
})
})
Sheets("Sheet2").Range("a1").CurrentRegion.Clear()
let rng = Sheets("Sheet2").Range("a1").Resize(res.length,res[0].length)
rng.Value2 = res
rng.Columns.AutoFit()
rng.Rows(1).Interior.Color = 0x9f8800
rng.BorderAround (xlContinuous )
}

复制代码

fengye5200 · 发表于 2024-7-30 16:36

Again123456 发表于 2024-7-30 15:32

把代码复制了，报错啊
能重新提供下吗，谢谢

fengye5200 · 发表于 2024-7-30 16:37

Again123456 发表于 2024-7-30 15:32

rysxing · 发表于 2024-7-30 19:08

本帖最后由 rysxing 于 2024-7-30 23:04 编辑

示列数据少，没有出问题，多上点数据试一下

fengye5200 · 发表于 2024-7-30 19:45

rysxing 发表于 2024-7-30 19:08
示列数据少，没有出问题，多上点数据试一下

文件内没有代码啊

，复制代码后乱码

rysxing · 发表于 2024-7-30 20:48

你用的VB，这是JS

Again123456 · 发表于 2024-7-31 08:16

fengye5200 发表于 2024-7-30 19:45
文件内没有代码啊，复制代码后乱码

我这是JS宏代码，在WPS里使用。

fengye5200 · 发表于 2024-7-31 08:16

rysxing 发表于 2024-7-30 20:48
你用的VB，这是JS

，不会啊，能用VBA搞嘛

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