[已解决]VBA当转换分类 如何计算奇偶

laoau138

VBA当转换分类   如何计算奇偶


拖动表格看下面就可以

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-27 10:18

1. Sub tt()
   
2.     arr = [a1:e83]
   
3.     xstr = "奇偶奇偶"
   
4.     x = [c84]
   
5.     For i = 1 To UBound(arr) - 1
   
6.         If arr(i, 5) = "3,4" And arr(i + 1, 5) = "1,2" Then
   
7.             If arr(i, 3) = arr(i + 1, 3) Then sx = sx + 1 Else nx = nx + 1   '顺行数，逆行数
   
8.         End If
   
9.     Next
   
10.     p = InStr(xstr, x)
    
11.     [c85] = IIf(sx > nx, Mid(xstr, p + 2, 1), Mid(xstr, p + 1, 1))   '输出
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     arr = [a1:e83]
   
3.     xstr = "奇偶奇偶"
   
4.     x = [c84]
   
5.     For i = 1 To UBound(arr) - 1
   
6.         If arr(i, 5) = "3,4" And arr(i + 1, 5) = "1,2" Then
   
7.             If arr(i, 3) = arr(i + 1, 3) Then sx = sx + 1 Else nx = nx + 1   '顺行数，逆行数
   
8.         End If
   
9.     Next
   
10.     p = InStr(xstr, x)
    
11.     [c85] = IIf(sx > nx, Mid(xstr, p + 2, 1), Mid(xstr, p + 1, 1))   '输出
    
12. End Sub
    

复制代码

laoau138

grf1973 发表于 2017-2-27 10:18

VBA把A列每一行数据   拆分五行二列保存DE列

http://www.excelpx.com/thread-428079-1-1.html