[已解决]用VBA数组行与行比较有几个数字相同

vbyou127

用VBA数组行与行比较有几个数字相同

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2016-3-18 09:51

见附件

跳转到最佳答案楼层

yorkchenshunan

见附件

lzclzch

Sub try()
    arr = [C6:H6]
   arr1 = [C10:H15]
ReDim brr(1 To UBound(arr1), 1 To 1)
    s = UBound(arr, 2)
    For i = 1 To UBound(arr, 2)
        For j = 1 To UBound(arr1)
         For n = 1 To UBound(arr1, 2)
            If arr(1, i) = arr1(j, n) Then
             brr(j, 1) = brr(j, 1) + 1

            End If
        Next
     Next
    Next
Sheet1.Range("i10").Resize(UBound(arr1), 1) = brr
End Sub

vbyou127

yorkchenshunan 发表于 2016-3-18 09:51
见附件

Sub try()
    arr = [C6:H7]
    s = UBound(arr, 2)........................................................这句是否多余删除，也可运行啊
    For i = 1 To UBound(arr, 2)
        For j = 1 To UBound(arr, 2)
            If arr(1, i) = arr(2, j) Then
                p = p + 1
                Exit For
            End If
        Next
    Next
[I5] = p
End Sub

yorkchenshunan

vbyou127 发表于 2016-3-18 10:00
Sub try()
    arr = [C6:H7]
    s = UBound(arr, 2).............................................. ...

这是啥？不是我给的代码吧，而且这个代码给不了你要的结果

vbyou127

yorkchenshunan 发表于 2016-3-18 10:05
这是啥？不是我给的代码吧，而且这个代码给不了你要的结果

这个不是我写