如何把下面A列中包含张三关键字的B列相加?

jymx · 发表于 2009-3-7 13:56

如何把下面A列中包含张三关键字的B列相加?
A　　　　　　　　B 　C　 D 　E 　F 　G
1是张三的 10
2是王五的单子　12
3给张三成单　　20
4是李四的单子　13
5张三的单　　　15

y3231057 · 发表于 2009-3-7 14:02

sub y3231057()
dim i as long
dim s as long
s=0
for i  = 1 to [A1].end(xldown).row
      if instr(cells(i,1).value,"张三") then
         s=s+cells(i,2).value
      end if
next
end sub

y3231057 · 发表于 2009-3-7 14:03

建议楼主以后发帖最好做附件上传

ningyuanchao · 发表于 2009-3-7 14:15

if instr(cells(i,1).value,"张三") then　亦可改成：
if Range("A" & i).Text Like "*张三*" then

qdjhyu · 发表于 2009-3-11 13:59

用公式能实现吗？

qdjhyu · 发表于 2009-3-23 16:02

=SUMIF(A1:A5,"*张三*",B1:B5)

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

[转帖] 如何把下面A列中包含张三关键字的B列相加?

回复 2楼 y3231057 的帖子