一、Excel2007版，把行裡的資料用複製-選擇性貼上-轉置的辦法貼上到列裡，然後篩選，自動篩選，按顏色篩選，篩選後用公式 =SUBTOTAL(2,A1:A20000)來求A1到A20000中篩選後的個數。二、Excel任意版：選中單元格A2，點選單的插入，名稱，定義，名稱處輸入 abc，引用位置處輸入 =GET.CELL(24,A1)確定。然後在任意單元格的下邊一格比如A2輸入 =abc，可以得到其上邊單元格的填充顏色程式碼。公式向右複製，然後用函式COUNTIF()求個數，比如 =COUNTIF(A2:Z2,6) 可以求顏色為黃色的和。如果你說的顏色是指填充顏色，那麼把=GET.CELL(24,A1)中的24改為63三、用宏自定義函式 ：同時按Alt和F11進入宏介面，點選單的插入，模組，貼上如下程式碼：Function sumcolor(rng1 As Range, rng2 As Range) As SingleDim cell As Rangesumcolor = 0For Each cell In rng1If cell.font.Color = rng2.font.Color Then sumcolor = sumcolor + 1Next cellEnd Function回到Excel中，輸入 =sumcolor(A1:AX1,A1)，其中A1:AX1是待求個數的單元格區域，A1單元格有需要的字型顏色，這兩個都可以改的。如果你說的顏色是指填充顏色，那麼把If cell.font.Color = rng2.font.Color Then sumcolor = sumcolor + 1改為If cell.interior.Color = rng2.interior.Color Then sumcolor = sumcolor + 1
一、Excel2007版，把行裡的資料用複製-選擇性貼上-轉置的辦法貼上到列裡，然後篩選，自動篩選，按顏色篩選，篩選後用公式 =SUBTOTAL(2,A1:A20000)來求A1到A20000中篩選後的個數。二、Excel任意版：選中單元格A2，點選單的插入，名稱，定義，名稱處輸入 abc，引用位置處輸入 =GET.CELL(24,A1)確定。然後在任意單元格的下邊一格比如A2輸入 =abc，可以得到其上邊單元格的填充顏色程式碼。公式向右複製，然後用函式COUNTIF()求個數，比如 =COUNTIF(A2:Z2,6) 可以求顏色為黃色的和。如果你說的顏色是指填充顏色，那麼把=GET.CELL(24,A1)中的24改為63三、用宏自定義函式 ：同時按Alt和F11進入宏介面，點選單的插入，模組，貼上如下程式碼：Function sumcolor(rng1 As Range, rng2 As Range) As SingleDim cell As Rangesumcolor = 0For Each cell In rng1If cell.font.Color = rng2.font.Color Then sumcolor = sumcolor + 1Next cellEnd Function回到Excel中，輸入 =sumcolor(A1:AX1,A1)，其中A1:AX1是待求個數的單元格區域，A1單元格有需要的字型顏色，這兩個都可以改的。如果你說的顏色是指填充顏色，那麼把If cell.font.Color = rng2.font.Color Then sumcolor = sumcolor + 1改為If cell.interior.Color = rng2.interior.Color Then sumcolor = sumcolor + 1