Excel怎么將區(qū)域中的值按出現(xiàn)次數提取到一列
Excel怎么將區(qū)域中的值按出現(xiàn)次數提取到一列
對于一個包含重復數值的區(qū)域,要將其中的數值按出現(xiàn)次數的多少提取到一列,通??梢杂冒琈ODE函數的數組公式。以下是學習啦小編為您帶來的關于Excel將區(qū)域中的值按出現(xiàn)次數的多少提取到一列,希望對您有所幫助。
Excel將區(qū)域中的值按出現(xiàn)次數的多少提取到一列
例如數值區(qū)域為A1:E10,要將其中的數值提取到G列,如圖。
在G2中輸入:
=MODE(IF(COUNTIF($G class="main">
Excel怎么將區(qū)域中的值按出現(xiàn)次數提取到一列
Excel怎么將區(qū)域中的值按出現(xiàn)次數提取到一列
Excel怎么將區(qū)域中的值按出現(xiàn)次數提取到一列
公式輸入完畢按Ctrl+Shift+Enter結束,然后拖動填充柄向下填充公式,直到出現(xiàn)“#N/A”為止。
受MODE函數的限制,該公式僅對數值有效,且不能提取只出現(xiàn)一次的數值。要將區(qū)域中所有的數據按出現(xiàn)次數提取到一列,可用VBA代碼來實現(xiàn)。如將下圖A1:E10區(qū)域中的文本按出現(xiàn)次數多少提取到G列:
按Alt+F11,打開VBA編輯器,在代碼窗口中輸入下列代碼并運行,即可G列得到按出現(xiàn)次數降序排序的文本,在H列得到對應文本的出現(xiàn)次數。
Sub 按出現(xiàn)次數排序()
Dim d As Object
Dim Arr
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
'提取不重復值并計算出現(xiàn)次數
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
說明:如果文本出現(xiàn)的次數相同,將按先行后列的順序依次提取。
猜你喜歡: