公式輸入完畢按Ctrl+Shift+Enter結束，然后拖動填充柄向下填充公式，直到出現“#N/A”為止。

　　受MODE函數的限制，該公式僅對數值有效，且不能提取只出現一次的數值。要將區域中所有的數據按出現次數提取到一列，可用VBA代碼來實現。如將下圖A1:E10區域中的文本按出現次數多少提取到G列：

　　按Alt+F11，打開VBA編輯器，在代碼窗口中輸入下列代碼并運行，即可G列得到按出現次數降序排序的文本，在H列得到對應文本的出現次數。

　　Sub 按出現次數排序()

　　Dim d As Object

　　Dim Arr

　　Dim i As Integer, j As Integer

　　Application.ScreenUpdating = False

　　'提取不重復值并計算出現次數

　　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

　　說明：如果文本出現的次數相同，將按先行后列的順序依次提取。

猜你喜歡：

1.excel中計算某個值出現的次數教程

2.excel 公式提取中括號內容的方法

3.Excel中進行打印區域自動調整的操作方法

4.excel工作簿怎么單獨提取一個表單

5.Excel中進行設置可編輯區域的操作方法