我有一套資料庫，資料庫里又含多個資料組，想用VBA把每一組的資料的每列的最大值（紅色）和最小值（藍色）找出并標識出，如何做希望幫忙。
uj5u.com熱心網友回復：
加個條件格式就可以了，以A列為例Sub Macro1()
Columns("A:A").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=MAX(A:A)"
Selection.FormatConditions(1).Font.ColorIndex = 3 '紅'
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=MIN(A:A)"
Selection.FormatConditions(2).Font.ColorIndex = 5 '藍'
End Sub
uj5u.com熱心網友回復：
很感謝你的解答，但我還有一個問題，你這個VBA代碼只有解決我一個資料組，我現在這個表只是個范例表，是4個資料組，相當于要找出4個資料組每組的最大和最小值共8個值，而且我的真實表格里有資料組上萬個，我不可能一個一個的去做，那樣太麻煩了。如何在你給的這個代碼里加個回圈陳述句。uj5u.com熱心網友回復：
我的真實表格這樣的，這只是一部分，每組資料都是用空格分開的，想分別找出四組資料CDEFGH六列資料的最大和最小值，以后還會上萬組資料，如何做回圈陳述句呀
uj5u.com熱心網友回復：
比如從C列向下，先找到文本="主"的這個單元的行號是3，再向下找到空白的行號是8，那么這6組就是 C4:C7、D4:D7、E4:E7、F4:F7、G4:G7、H4:H7
uj5u.com熱心網友回復：
比如從C列向下，先找到文本="主"的這個單元的行號是3，再向下找到空白的行號是8，那么這6組就是 C4:C7、D4:D7、E4:E7、F4:F7、G4:G7、H4:H7
uj5u.com熱心網友回復：
謝謝你，沒明白你什么意思，可能你也沒明白我想做什么，能加你的QQ號嗎，也許會說明白uj5u.com熱心網友回復：
我的資料庫里還沒補充完，將來可能會有上萬場比賽的資料，因為一場比賽中所有的博彩公司給的數值都不一樣，我想通過這個VBA代碼將所有博彩公司給出的最大和最小值標識出來，而你給的方法是我只能一場一場比賽的改，這樣的話就太多了，我想要的是能夠一次性將所有的資料組的數值都標識出來。希望能夠幫到我，成分感謝。我的QQ是304712433，如果加我好友，驗證：博彩公司uj5u.com熱心網友回復：
回圈自己做啊。查找的方法在#5。
#1是設定一組的方式，把里面的 A:A 用一個字串變數替換，變數值的格式看 #5。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86793.html
標籤：VBA