如何解决

名字好难

Book1.rar (3.69 KB, 下载次数: 13)

2011-1-4 16:20 上传

点击文件名下载附件 求解

zm0115

1. Sub 按钮2_Click()
   
2. 
   
3. For Each Rng In Sheet1.Range("a1").CurrentRegion
   
4.     Z = 0
   
5.     x = Split(Rng.Value, " ")
   
6.     For y = 1 To UBound(x)
   
7.         If (Val(x(y)) Mod 2) = 0 Then
   
8.             Z = Z + Val(Right(x(y), 1))
   
9.         End If
   
10.     Next
    
11.     Rng.Value = Rng.Value & " " & Z
    
12. Next
    
13. End Sub
    

复制代码

chensir

=SUMPRODUCT((MOD(MID(RIGHT(A1,LEN(A1)-FIND(")",A1)-1),{1;4;7;10;13},2)*1,2)=0)*MID(RIGHT(A1,LEN(A1)-FIND(")",A1)-1),{1;4;7;10;13},2)*1)