请教老师，用VBA找出相对应数的和值，并显示在其它列，谢谢！

cartel · 发表于 2023-7-25 16:14

请教老师，用VBA找出相对应数的和值，并显示在其它列，谢谢！.zip (8.88 KB, 下载次数: 14)

shiruiqiang · 发表于 2023-7-25 16:25

split 拆分求和，如果和的值在j列中，直接得出和就行了，何必再去split（j列）？

盼盼198310 · 发表于 2023-7-25 16:36

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

ykcbf1100 · 发表于 2023-7-25 16:37

附件供参考。。。

ykcbf1100 · 发表于 2023-7-25 19:56

tomxie 发表于 2023-7-25 17:32
如果是我，只有1句，分了四行写。就如精简指令集与超长指令集。

你的代码并没有完全满足楼主的需求。（已知：J2 有任意个和值，O列有任意行的数），可你把这个任意值和任意行的数据写死了，而这二个是变量。

gwjkkkkk · 发表于 2023-7-25 20:03

参与一下。。。

sdytsxd991122 · 发表于 2023-7-25 21:04

参一下

limonet · 发表于 2023-7-25 22:38

本帖最后由 limonet 于 2023-7-25 23:24 编辑

抱歉，没想到函数也是审核，重复了

limonet · 发表于 2023-7-25 22:42

试试函数，函数也是excel的精华

=HSTACK(TOCOL(MAP(O1:O9,LAMBDA(x,IF(ISNUMBER(MATCH(SUM(--TEXTSPLIT(x,,",")),--TEXTSPLIT($J$2,,","),)),x,#N/A))),3),TOCOL(MAP(O1:O9,LAMBDA(x,IF(ISNUMBER(MATCH(SUM(--TEXTSPLIT(x,,",")),--TEXTSPLIT($J$2,,","),)),SUM(--TEXTSPLIT(x,,",")),#N/A))),3))

micch · 发表于 2023-7-25 23:14

不考虑其他特殊情况

Sub Test()
hestr = "," & Range("J2").Value & ","
Set Rng = Cells(1, "O")
Do While Len(Rng.Value) > 0
he = Application.Evaluate(Replace(Rng.Value, ",", "+"))
If InStr(hestr, "," & he & ",") > 0 Then
r = r + 1
Cells(r, "P").Value = Rng.Value
Cells(r, "R").Value = he
End If
Set Rng = Rng.Offset(1)
Loop
End Sub

复制代码

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

[求助] 请教老师，用VBA找出相对应数的和值，并显示在其它列，谢谢！

评分

评分

评分