優(yōu)化Excel數(shù)據(jù)處理：快速用顏色分隔數(shù)字區(qū)間標(biāo)示
修法布施得聰明智慧，多分享讓生活更美好。在前文中我們已經(jīng)介紹了如何使用Excel快速對(duì)數(shù)字區(qū)間進(jìn)行顏色分隔標(biāo)示的方法。然而，當(dāng)我們?cè)诤Y選數(shù)據(jù)后想要應(yīng)用這種顏色分隔的效果時(shí)，可能會(huì)遇到一些困難。本文將為
修法布施得聰明智慧，多分享讓生活更美好。在前文中我們已經(jīng)介紹了如何使用Excel快速對(duì)數(shù)字區(qū)間進(jìn)行顏色分隔標(biāo)示的方法。然而，當(dāng)我們?cè)诤Y選數(shù)據(jù)后想要應(yīng)用這種顏色分隔的效果時(shí)，可能會(huì)遇到一些困難。本文將為您詳細(xì)介紹如何利用宏來(lái)解決這一問(wèn)題。
使用VBA宏優(yōu)化處理
首先，打開(kāi)Microsoft Office Excel 2007，并創(chuàng)建一個(gè)新的工作簿。接著按下快捷鍵ALT F11，打開(kāi)VBE（宏）編輯界面。在菜單欄中選擇【插入】下拉列表中的【模塊（M）】，插入一個(gè)新的模塊。在新建的模塊中粘貼以下代碼：
```vba
Sub 選篩選公式數(shù)字區(qū)間顏色分隔標(biāo)示()
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
```
動(dòng)態(tài)應(yīng)用宏過(guò)程
在工作表窗口中，先進(jìn)行數(shù)據(jù)篩選操作，再運(yùn)行上述宏。在最后一列填寫(xiě)引用序號(hào)值的公式，例如`A2`并復(fù)制至下一行。選擇這一列數(shù)據(jù)并執(zhí)行宏【選篩選公式數(shù)字區(qū)間顏色分隔標(biāo)示】。運(yùn)行完成后，序號(hào)數(shù)字將按照設(shè)定的顏色規(guī)則顯示。
定制不同類(lèi)別的顏色標(biāo)示
如果您希望針對(duì)不同類(lèi)別的數(shù)據(jù)采用不同的顏色標(biāo)示，可以對(duì)代碼稍作修改。將代碼中的條件判斷部分修改如下：
將
```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
```
如果您覺(jué)得這篇文章對(duì)您有所幫助，請(qǐng)不吝給予點(diǎn)贊或收藏以支持我們！如有任何疑問(wèn)，歡迎在評(píng)論區(qū)留言，謝謝您的閱讀！