求个VBA代码，简单求和的

Question

如下面图片，A列是一些名字，但是有重复的，比如张三，有三次重复。 B列 C列 D列是一些数字， 我用简单的字典函数将A列的重复项去除了 排在下面， 现在我想求一个VBA代码，求得 张三等名字后面所有的数字之和，显示在B列 ， 比如我的附图，在B12显示的结果应该是 B1+C1+D1 + B4+C4+D4 + B10+C10+D10
李四没有重复的就是 B2+C2+D2 就可以了，求个VBA代码 （不需要去除重复项的代码，只需要如图求和就可以了，谢谢）

Answer 1

application.worksheetfunction.sumif(range("a1:a10"),range("a12"),range("B1:D10"))追问

我刚学VBA ，主要是变量的赋值和应用不熟悉，如何用变量表示你公式中的 A1：A10，RANGE("A12") 等，让代码一次运行就得到所有结果？

追答

set rng = range("a12:a18")
for each cel in rng
cel.offset(0,1)= worksheetfunction.sumif(range("a1:a10"),cel.value,range("B1:D10"))
next