用VBA计算 每一行3个数字是否相同

laoau138

用VBA计算  每一行3个数字是否相同

kmcla

我也是新手，这个论坛帮我我很多，也试这帮别人，写的可能不够优化．

kmcla

Private Sub CommandButton1_Click()
    Dim a1(2 To 10000)
    Dim a2(2 To 10000)
    Dim a3(2 To 10000)
    arr = Sheets("Sheet1").Range("A1:c" & Sheets("Sheet1").Range("A65536").End(3).Row)
    不同 = 0
    同 = 0
    For i = 2 To UBound(arr)
        a1(i) = arr(i, 1)
        a2(i) = arr(i, 2)
        a3(i) = arr(i, 3)
        If a1(i) <> a2(i) And a1(i) <> a3(i) And a2(i) <> a3(i) Then
            不同 = 不同 + 1
        Else
            同 = 同 + 1
        End If
    Next
    Sheets("Sheet1").Range("h13") = 不同
    Sheets("Sheet1").Range("h16") = 同
End Sub

dsmch

1. Sub Macro1()
   
2. Dim arr, w(9), i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. n = UBound(arr, 2)
   
5. For i = 2 To UBound(arr)
   
6.     For j = 1 To n
   
7.         w(arr(i, j)) = arr(i, j)
   
8.     Next
   
9.     If Len(Join(w, "")) = n Then s = s + 1
   
10.     Erase w
    
11. Next
    
12. [h13] = s: [h16] = UBound(arr) - s - 1
    
13. End Sub

复制代码

laoau138

kmcla 发表于 2017-1-11 18:24
我也是新手，这个论坛帮我我很多，也试这帮别人，写的可能不够优化．

VBA不用A列辅助编号改写逆顺   行数小于60先逆行到1   再从60 59逆下去


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

laoau138

kmcla 发表于 2017-1-11 18:29
Private Sub CommandButton1_Click()
    Dim a1(2 To 10000)
    Dim a2(2 To 10000)

VBA不用A列辅助编号改写逆顺   行数小于60先逆行到1   再从60 59逆下去


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

laoau138

dsmch 发表于 2017-1-11 20:02

VBA不用A列辅助编号改写逆顺   行数小于60先逆行到1   再从60 59逆下去


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