如何用循环，将ADD_M col中有含字母并计

oba5168

如何用循环，将ADD_M col中有含字母并计

hhjjpp

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&, temp, temp2
   
3. arr = [c2].Resize([c65536].End(xlUp).Row - 1, 2)
   
4. For i = 1 To UBound(arr)
   
5.     temp = Left(arr(i, 1), 2)
   
6.     temp2 = UCase(Right(arr(i, 1), 1))
   
7.     If IsNumeric(temp) And temp2 >= "A" And temp2 <= "Z" Then
   
8.        If temp >= 0 And temp <= 19 Then s1 = s1 + arr(i, 2)
   
9.        If temp >= 2 And temp <= 99 Then s2 = s2 + arr(i, 2)
   
10.     End If
    
11. Next
    
12. [h4] = s1
    
13. [j4] = s2
    
14. End Sub
    

复制代码

oba5168

谢谢你的回复，但答案似有错，我已将结果明细列在下方，请解惑。