1樓：匿名使用者
水平有限，**複雜了點。
sub te()
dim arr1, dict1
set dict1 = createobject("scripting.dictionary")
arr1 = range(cells(1, 1), cells(6, "e"))
arr2 = arr1
for i = 1 to ubound(arr1, 1)
for j = 1 to ubound(arr1, 2)
dict1.removeall
for k = 1 to ubound(arr1, 2)
if not dict1.exists(arr1(i, k)) then
dict1.add arr1(i, k), ""
end if
next
temp1 = 1
for each l in dict1.keys
if arr1(i, j) > l then
temp1 = temp1 + 1
end if
next
arr2(i, j) = temp1
next
next
range(cells(1, "g"), cells(6, "k")) = arr2
end sub
2樓：太極健
沒看懂，結果是怎麼樣的？原資料呢？
求VBA高手賜教，VBA高手賜教
可以完美實現，關鍵是 存放的位置，需要存放在在 thisworkbook 而非普通模組裡，並且是 private sub workbook open 即可 或是 private sub workbook beforeclose cancel as boolean 你說的 如下 private sub...
高手請進急，高手請進？？？ 急急！！！！！
找台顯示器換著試一下！如沒問題在換硬碟！還有顯示卡的驅動！試 可以自己試試看是 的問題，建議先查查毒！然後找個顯示器，如果好了就是顯示器該修理了，如果還是這樣，就是主機的問題了，是顯示卡的問題機率比較高！機器出現藍屏首先應從軟體方面著手,如果不行再考慮硬體.方法如下 1.藍屏可能是安裝了某些軟體引起...
炒股高手請進，股票高手請進
交易者要取得長期的成功必須具備三個條件，一是正確的投資理念整合形成完善的能穩定贏利的交易系統，二是良好的資金管理和嚴格的風險控制，三是堅定的執行能力和持之以恆的耐力。成功 系統 風控 執行力。系統是基礎。風險控制就是 的把握。執行力就是紀律。從你初入 來看，應該是沒有找到方法。方法可以是一根 可以是...
閱讀高手請進！語文高手請進！
1 這世界有無數種人 有的心胸狹小 有的心胸寬闊 有的外向開朗 有的內向安靜 有的樂觀自信 有的消極自卑 很多人都認為他自己在世界上最為重要 並居於中心的位置。2 每乙個人都認為他自己的國家在世界上最為重要 並居於中心的位置。來自祖國，我們的眼睛也總是以自己的國家為中心。我們從自己的國家出發，繞世界...
籃球高手請進，籃球高手請進！！！！！！謝謝
這個就看具體情況了，有人包夾最好別強突。如果是還沒有上籃動作球就被打掉，一是你拿球力量不足，二是球的位置沒拿好。一般右邊突進去的話，左肩膀和手臂要擋在前面，球放在右腰間。如果有了上籃動作，被打掉就是乙個蓋帽了，這麼說吧。你看科比，經常在中鋒面前上籃，因為他空中能躲開對方的防守，比如拉桿之類的動作。所...