VBA 對前四個最大值進行排序和篩選

附件中有示例。

你想要這個嗎？

function test(byval rg as range) as string

dim s as string

ary = rg

n = , 4)

for i = ubound(ary) to 1 step -1if ary(i, 1) >= n then s = s & ary(i, 1) &","

nexttest = left(s, len(s) -1)end function

可以使用函式來實現自動統計，如果使用自動排序，單獨使用函式似乎比較困難，但是使用VBA也沒問題，我認為函式可以。

您可以使用 sumif 函式來實現您想要的。

親愛的，您必須使用VBA來解決此請求。

開啟您的 excel 檔案，按“Alt+F11”開啟 VBA 視窗，然後雙擊左側相應的工作表，並在右側的空白處貼上以下**。 關閉 VBA 視窗。

將來，每次選擇此表（例如，sheet1）時，它都會自動在ab中對兩列進行排名，在b列中按年齡公升序排列。

選擇 b 列中的任何非空白單元格 單擊常用工具欄上的公升序排序圖示。

如果年齡列中的輸入發生更改，巨集會觸發按年齡自動排序。

選擇年齡列 - 排序和篩選 - 公升序 - 展開所選區域 - 確定。

請務必選擇“擴充套件所選區域”，否則其他列中的資料將無法排序。

您可以將 what 的值更改為實際值，結果將在 msgbox 中顯示為 sub maxmin（）

dim what as string

dim imax as long, imin as longwhat = "abc"

imax =

imin =

msgbox "最大：" & imax & chr(10) &"最低：" & imin

end sub

1. 建立乙個輔助列，公式為：=if（a2="eton",1,if(a2="apeal",2,if(a2="optima"，3,4）））下拉公式：

2、自定義排序：開始排序過濾 自定義排序，主關鍵字為“輔助欄目”，公升序; 次要關鍵字是“數字”列，按公升序排列。

先把男生和女生分開，選擇“主關鍵詞”，選擇“性別”，即先按性別排序。 排序方式，選擇“數字”，預設公升序為OK。

單擊“確定”後，您可以看到男孩和女孩是分開排序的。

1.b列中有一組值，現在您需要找到這組值的最大值和最小值，並分別將它們填充在D2和E2單元格中。

返回。 2. 在 B 列中選擇包含答案資料的單元格，然後單擊資料工具欄中的公升序。

3.單擊“排序”後，所有值將從小到大排序，第乙個值最小，最後乙個值最大，填寫相應的單元格。

4.當然，您也可以使用函式方法在單元格d2中輸入公式=max（b1：b20），max函式用於獲取一組值中的最大值，輸入公式並單擊確定。

5. 確認後，獲得 b 組陣列中的最大值。

使用函式abs求絕對值，再用max求最大值，這種方法可能有點煩人，但可以找到。

如果這組資料在 a1：a8 範圍內，請在絕對值最大的數字單元格中輸入 =if（max（a1：）

a8)>-min(a1:a8),max(a1:a8),-min(a1:

a8））。

首先選擇插入函式，取絕對值abs，然後選擇所有資料，然後選擇排序（降序），第乙個自然是最大的。

首先，使用 =abs（） 函式獲取絕對值。

=max（） 函式用於取最大值。

假設有 10 列資料，行數不超過 100 行。 從第三行開始是您的資料，最後是第一行的最大值和第二行的最小值。

dim maxmin(10,2) as singledim i as integer

dim j as integer

range("a2").select

for i=1 to 10

for j =1 to 2

maxmin(i,j)=0

next j,i

for i=1 to 100

if ,0)="" then '第一列中的空行以 goto wri 結尾

endiffor j=1 to 10

if maxmin(j,1)=0 thenmaxmin(j,1)=,j-1)

elseif maxmin(j,1),j-1) thenmaxmin(j,2)=,j-1)

endifnext j

next i

wri:for j=1 to 10

j-1)=maxmin(j,1)

j-1)=maxmin(j,2)

next j