大量數據表格中 如何顯示Excel 最大值位置

Question

我有一堆數據
但要找出最大值位於哪一列哪一行位置 能顯示出來嗎?!
ps: 我會用Large 及 Max函數 雖然知道最大值多少
但數據太多...難找...幫忙教一下吧.... :D

^^ 原來這題這麼複雜喔....利害喔~

^^" 不好意思請問一下~
建立巨集名稱打"Sub"
那以下的要輸入何處ㄋ?!
Dim WorkRange As Range
Dim MaxVal As Double
If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Count = 1 Then................
Thx..~ ^^"

applerot請問一下嚕~ ^^"
"複製格式到其他儲存格,紅色字為最大"
我不了解^^"

Answer 1

使用 VBA 的方法：Sub 選擇某個範圍中的最大值()    Dim WorkRange As Range    Dim MaxVal As Double    If TypeName(Selection) <> "Range" Then Exit Sub    If Selection.Count = 1 Then        Set WorkRange = Cells    Else        Set WorkRange = Selection    End If    MaxVal = Application.Max(WorkRange)    On Error Resume Next    WorkRange.Find(What:=MaxVal, _        After:=WorkRange.Range("a1"), _            LookIn:=xlValues, _            LookAt:=xlWhole, _            SearchDirection:=xlNext, MatchCase:=False _            ).Select    If Err <> 0 Then MsgBox "沒有發現最大值" & MaxValEnd Sub'執行此 VBA 之後，會將工作儲存格自動移動至最大值那一個儲存格。

2006-10-17 01:01:24 補充：
請問，您的問題解決了嗎？還有需要協助的嗎？

2006-10-17 04:52:52 補充：
VBA 在 Office 軟體系列中又稱為 巨集

2006-10-17 11:41:03 補充：
選取我打好的程式碼，全部貼到右側「程式碼」視窗中即可

2006-10-17 18:50:32 補充：
在工作表視窗中直接按 Alt + F11
插入＼模組
把程式碼貼在右側視窗中即可

Answer 2

^^" Trump Blanco 不好意思..
我家電腦是apple 等我明天試試看別的電腦
若有問題會在補充的～ ^^" 謝謝你的提醒...
ps:VBA 也是EXCEL 內的函數之一嗎?!

Answer 3

如果已經知道最大值是多少, 建議直接用[編輯][尋找]比較快.

Answer 4

如尋找位子:$A$1:$C$10都為數值資料在空格中輸入公式:=CHAR(SUMPRODUCT((($A$1:$C$10=LARGE($A$1:$C$10,1))*COLUMN($A$1:$C$10)))+64)&SUMPRODUCT((($A$1:$C$10=LARGE($A$1:$C$10,1))*ROW($A$1:$C$10)))CHAR傳回數字指定的字元。使用 CHAR 可以將您從別種類型的電腦檔案中取得的字碼頁數字，轉換成字元。65=ASUMPRODUCT((($A$1:$C$10=LARGE($A$1:$C$10,1))*COLUMN($A$1:$C$10)))所得為欄數SUMPRODUCT((($A$1:$C$10=LARGE($A$1:$C$10,1))*ROW($A$1:$C$10)))所得為列數SUMPRODUCT傳回各陣列中所有對應元素乘積的總和。各陣列必須有相同的維度 (相同的列數，相同的欄數)。否則 SUMPRODUCT 函數會傳回錯誤值 #VALUE!。 SUMPRODUCT 函數會將所有非數值資料的陣列元素當成 0 來處理。

2006-10-13 12:48:44 補充：
如$A$1:$C$10有兩個以上最大值則修改公式:=CHAR(MAX((($A$1:$C$10=LARGE($A$1:$C$10,1))*COLUMN($A$1:$C$10)))+64)&MAX((($A$1:$C$10=LARGE($A$1:$C$10,1))*ROW($A$1:$C$10)))陣列公式輸入完按Ctrl+Shift+Enter所得最大值為最右欄與最下列的儲存格

2006-10-13 19:44:37 補充：
不複雜的:從[格式][設定格式化條件]中設定公式如相同改變字型顏色直接在位子顯示點選A1再從[格式]>>[設定格式化條件]公式為:=MAX($A$1:$C$10)=A1[格式]>>[色彩]選[紅色]再複製格式到其他儲存格,紅色字為最大