[已解决]列中数码两两相加取偶尾,求助VBA解法

东方智彩

B列的数两两相加(第1位与第2位、第1位与第3位、第2位与第3位）后取偶数的尾显示到L列，如果是多个偶尾依次排列显示，H：J列不要显示，这里只是个例子说明所以显示了，请高手给个VBA代码的解法，谢谢！
Book1.rar (10.22 KB, 下载次数: 3)

2011-12-15 14:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

suye1010

2011-12-15 15:20

1. Sub test()
   
2. Dim LrowNo As Integer, i As Integer, S1 As Integer, S2 As Integer, S3 As Integer, a As Integer
   
3. LrowNo = Range("B65536").End(xlUp).Row
   
4. For i = 3 To LrowNo
   
5.     a = 12
   
6.     S1 = Val(Left(Cells(i, 2), 1)) + Val(Mid(Cells(i, 2), 2, 1))
   
7.     S2 = Val(Left(Cells(i, 2), 1)) + Val(Right(Cells(i, 2), 1))
   
8.     S3 = Val(Right(Cells(i, 2), 1)) + Val(Mid(Cells(i, 2), 2, 1))
   
9.     If S1 Mod 2 = 0 Then
   
10.         Cells(i, a) = Right(S1, 1)
    
11.         a = a + 1
    
12.     End If
    
13.     If S2 Mod 2 = 0 Then
    
14.         Cells(i, a) = Right(S2, 1)
    
15.         a = a + 1
    
16.     End If
    
17.     If S3 Mod 2 = 0 Then
    
18.         Cells(i, a) = Right(S3, 1)
    
19.     End If
    
20. Next i
    
21. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

1. Sub test()
   
2. Dim LrowNo As Integer, i As Integer, S1 As Integer, S2 As Integer, S3 As Integer, a As Integer
   
3. LrowNo = Range("B65536").End(xlUp).Row
   
4. For i = 3 To LrowNo
   
5.     a = 12
   
6.     S1 = Val(Left(Cells(i, 2), 1)) + Val(Mid(Cells(i, 2), 2, 1))
   
7.     S2 = Val(Left(Cells(i, 2), 1)) + Val(Right(Cells(i, 2), 1))
   
8.     S3 = Val(Right(Cells(i, 2), 1)) + Val(Mid(Cells(i, 2), 2, 1))
   
9.     If S1 Mod 2 = 0 Then
   
10.         Cells(i, a) = Right(S1, 1)
    
11.         a = a + 1
    
12.     End If
    
13.     If S2 Mod 2 = 0 Then
    
14.         Cells(i, a) = Right(S2, 1)
    
15.         a = a + 1
    
16.     End If
    
17.     If S3 Mod 2 = 0 Then
    
18.         Cells(i, a) = Right(S3, 1)
    
19.     End If
    
20. Next i
    
21. End Sub
    

复制代码

东方智彩

谢谢高手,正解,学习了