在Excel2003中按顏色進(jìn)行排序

1、在Excel2003中按顏色進(jìn)行排序     有時(shí)需要按單元格顏色或字體顏色進(jìn)行排序，但Excel 2003沒有提供直接的方法。我們可以利用自定義函數(shù)或宏表函數(shù)GET.CELL，在輔助列中獲取單元格顏色或字體顏色索引值，然后進(jìn)行排序。具體方法如下：    方法一：用宏表函數(shù)GET.CELL      以下表為例，假設(shè)人物名單在B2:B19區(qū)域中。序號(hào)人物名單1一燈大師2柯鎮(zhèn)惡3孫不二4洪七公5朱聰6馬鈺7黃藥師8寒寶駒9丘處機(jī)10歐陽(yáng)鋒11全金發(fā)12譚處端13張阿生14南希仁

2、15劉處玄16王處一17韓小螢18郝大通    1.選擇C2單元格（很重要，不能隨便選擇別的單元格），單擊菜單“插入名稱定義”，彈出“定義名稱”對(duì)話框。在“在當(dāng)前工作簿中的名稱”下的文本框中輸入名稱“字體顏色”，在“引用位置”下輸入公式：    =GET.CELL(24,B2)        單擊“確定”按鈕。    說明：由于要獲取字體顏色，所以公式中GET.CELL函數(shù)的第一個(gè)參數(shù)為“24”，如果要獲取單元格顏色，則將該參數(shù)改為“3

3、8”，公式改為：    =GET.CELL(38,B2)    所定義的名稱也可以作相應(yīng)的更改，如改為“單元格顏色”。    2.在C2單元格中輸入公式：    =字體顏色    回車后C2單元格中將顯示B2單元格中字體的顏色索引值。將C2單元格中的公式用填充柄填充到C3:C19區(qū)域中，然后選擇該區(qū)域中的某個(gè)單元格，單擊工具欄中的AZ排序按鈕，即可得到按字體顏色排序后的結(jié)果。      

4、  方法二：用自定義函數(shù)    以下表為例，假設(shè)人物名單在B2:B19區(qū)域中。序號(hào)人物名單1一燈大師2柯鎮(zhèn)惡3孫不二4洪七公5朱聰6馬鈺7黃藥師8寒寶駒9丘處機(jī)10歐陽(yáng)鋒11全金發(fā)12譚處端13張阿生14南希仁15劉處玄16王處一17韓小螢18郝大通    1.按Alt+F11，打開VBA編輯器。單擊菜單“插入模塊”，Excel插入名稱為“模塊1”的模塊。在右側(cè)的代碼窗口中輸入下面的VBA代碼：    Function GetCellColor(TheCell As Range) &#

5、160;    GetCellColor =     End Function    Function GetFontColor(TheCell As Range)      GetFontColor =     End Function    2.按Alt+F11返回Excel界面。在C2單元格中輸入公式：    =getcellcolor(B2)    如果需要按單元格字體顏色排序，則輸入下面的公式：    =getfontcolor(B2)     回車后C2單元格中將顯示B2單元格中填充色的顏色索引值。將C2單元格中的公式用