優化Excel數據處理：快速用顏色分隔數字區間標示

修法布施得聰明智慧，多分享讓生活更美好。在前文中我們已經介紹了如何使用Excel快速對數字區間進行顏色分隔標示的方法。然而，當我們在篩選數據后想要應用這種顏色分隔的效果時，可能會遇到一些困難。本文將為

修法布施得聰明智慧，多分享讓生活更美好。在前文中我們已經介紹了如何使用Excel快速對數字區間進行顏色分隔標示的方法。然而，當我們在篩選數據后想要應用這種顏色分隔的效果時，可能會遇到一些困難。本文將為您詳細介紹如何利用宏來解決這一問題。

使用VBA宏優化處理

首先，打開Microsoft Office Excel 2007，并創建一個新的工作簿。接著按下快捷鍵ALT F11，打開VBE（宏）編輯界面。在菜單欄中選擇【插入】下拉列表中的【模塊（M）】，插入一個新的模塊。在新建的模塊中粘貼以下代碼：

```vba

Sub 選篩選公式數字區間顏色分隔標示()

Dim myr As Range, i As Long, c1 As Long, c2 As Long, mb(), m, n As Long

c1 5287936

c2 65535

Set myr Selection

ReDim mb(1 To )

n 0

For i 1 To

If myr.Cells(i).Value <> "" Then

n n 1

mb(n) myr.Cells(i).Row

End If

Next i

m myr.Cells(1).Formula

m Right(m, Len(m) - 1)

m Range(m).Column

For i 1 To n

If i 1 Then

Cells(mb(i), m) c1

Else

If Cells(mb(i), m).Value Cells(mb(i - 1), m).Value Then

Cells(mb(i), m) Cells(mb(i - 1), m)

Else

If Cells(mb(i - 1), m) c1 Then

Cells(mb(i), m) c2

Else

Cells(mb(i), m) c1

End If

End If

End If

Next i

End Sub

```

動態應用宏過程

在工作表窗口中，先進行數據篩選操作，再運行上述宏。在最后一列填寫引用序號值的公式，例如`A2`并復制至下一行。選擇這一列數據并執行宏【選篩選公式數字區間顏色分隔標示】。運行完成后，序號數字將按照設定的顏色規則顯示。

定制不同類別的顏色標示

如果您希望針對不同類別的數據采用不同的顏色標示，可以對代碼稍作修改。將代碼中的條件判斷部分修改如下：

將

```vba

If Cells(mb(i), m).Value Cells(mb(i - 1), m).Value Then

```

改為

```vba

If Cells(mb(i), m).Value Cells(mb(i - 1), m).Value Then

```

如果您覺得這篇文章對您有所幫助，請不吝給予點贊或收藏以支持我們！如有任何疑問，歡迎在評論區留言，謝謝您的閱讀！