Excel怎么將區(qū)域中的值按出現(xiàn)次數(shù)提取到一列
Excel怎么將區(qū)域中的值按出現(xiàn)次數(shù)提取到一列
對(duì)于一個(gè)包含重復(fù)數(shù)值的區(qū)域，要將其中的數(shù)值按出現(xiàn)次數(shù)的多少提取到一列，通?？梢杂冒琈ODE函數(shù)的數(shù)組公式。以下是學(xué)習(xí)啦小編為您帶來(lái)的關(guān)于Excel將區(qū)域中的值按出現(xiàn)次數(shù)的多少提取到一列，希望對(duì)您有所幫助。
Excel將區(qū)域中的值按出現(xiàn)次數(shù)的多少提取到一列
例如數(shù)值區(qū)域?yàn)锳1:E10，要將其中的數(shù)值提取到G列，如圖。
在G2中輸入：
=MODE(IF(COUNTIF($G class="main">
Excel怎么將區(qū)域中的值按出現(xiàn)次數(shù)提取到一列
Excel怎么將區(qū)域中的值按出現(xiàn)次數(shù)提取到一列
Excel怎么將區(qū)域中的值按出現(xiàn)次數(shù)提取到一列
公式輸入完畢按Ctrl+Shift+Enter結(jié)束，然后拖動(dòng)填充柄向下填充公式，直到出現(xiàn)“#N/A”為止。
受MODE函數(shù)的限制，該公式僅對(duì)數(shù)值有效，且不能提取只出現(xiàn)一次的數(shù)值。要將區(qū)域中所有的數(shù)據(jù)按出現(xiàn)次數(shù)提取到一列，可用VBA代碼來(lái)實(shí)現(xiàn)。如將下圖A1:E10區(qū)域中的文本按出現(xiàn)次數(shù)多少提取到G列：
按Alt+F11，打開(kāi)VBA編輯器，在代碼窗口中輸入下列代碼并運(yùn)行，即可G列得到按出現(xiàn)次數(shù)降序排序的文本，在H列得到對(duì)應(yīng)文本的出現(xiàn)次數(shù)。
Sub 按出現(xiàn)次數(shù)排序()
Dim d As Object
Dim Arr
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
'提取不重復(fù)值并計(jì)算出現(xiàn)次數(shù)
Set d = CreateObject("Scripting.Dictionary")
Arr = Range("A1:E10")
For i = 1 To UBound(Arr, 1)
For j = 1 To UBound(Arr, 2)
If Not d.Exists(Arr(i, j)) Then
d.Add Arr(i, j), 1
Else
d.Item(Arr(i, j)) = d.Item(Arr(i, j)) + 1
End If
Next
Next
'輸出并排序
Range("G2").Resize(d.Count) = Application.Transpose(d.keys)
Range("H2").Resize(d.Count) = Application.Transpose(d.items)
Range("G2:H2").Resize(d.Count).Sort key1:=Range("H2"), Order1:=xlDescending
Set d = Nothing
Application.ScreenUpdating = True
End Sub
說(shuō)明：如果文本出現(xiàn)的次數(shù)相同，將按先行后列的順序依次提取。
猜你喜歡：
1.excel中計(jì)算某個(gè)值出現(xiàn)的次數(shù)教程
2.excel 公式提取中括號(hào)內(nèi)容的方法