快速比對矩陣內的資料大小!! - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 快速比對矩陣內的資料大小!!

返回列表下一主題上一主題發帖

快速比對矩陣內的資料大小!!

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

1^# 跳轉到 »

發表於 2015-10-17 06:58 | 顯示全部帖子

回復 1# yenwang
如果只要找其中一個最大值，一個迴圈加比大小就可以了
參考看看!

Sub 陣列抓最大值()
Dim Arr, ViewMax
Arr = Range("a1:b7") '引入你的陣列
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
If .Exists(Arr(i, 1)) Then
If .Item(Arr(i, 1)) < Arr(i, 2) Then .Item(Arr(i, 1)) = Arr(i, 2)
Else
.Add Arr(i, 1), Arr(i, 2)
End If
Next i
For Each ViewMax In .Keys
Debug.Print ViewMax, .Item(ViewMax)
Next
End With
End Sub

複製代碼

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題