如何人excel一列数据中排序后让不同数据设置为交替的底纹颜色

痛痛痛痛

假设有原始数据如下：户号已经排序，要对户号列进行操作，使之该列不同的户号分别以绿蓝底色交替出现。因为一个户号对应一个家庭，家庭人数有几人，该列的户号将出现几次。 或者不同的户号只设置一种颜色，如果能将这一行设置为相应的底纹更好。

怎么通过一次性的操作实现上述的效果？


谢谢“hcm19522”大神，这里把具体的操作方法讲一下
打开“测试数据”文件，在A列前插入一列，这样户号成为B列，在A2单元格输入公式如下


=MOD(ROUND(SUMPRODUCT(1/COUNTIF($B$2:$B2,$B$2:$B2)),),2)


公式中B2就是改行户号所在单元格。


四个公式，用处还不知道，先学习。后面再来编辑！


然后双击A2的填充柄完成数据填充。


这样，户号列中不同的户号就分别以数字0和1交替出现，然后分别筛选出0和1，设置不同底色，就实现了目标。


大神就是厉害！

呵呵，魔人大队使用VBA方法实现了一列中不同数据交替显示的效果。
Sub hh()
Dim y As String
s = 1
Set d = CreateObject("scripting.dictionary")

For Each i In Range(Range("a2"), Cells(Rows.Count, 1).End(xlUp))
   d(i.Value) = ""
Next
arr = d.keys
y = Application.WorksheetFunction.Rept("23", d.Count)
For Each m In arr
    For Each i In Range(Range("a2"), Cells(Rows.Count, 1).End(xlUp))
       If i.Value = m Then

          i.Interior.ColorIndex = Mid(y, s, 1)
       End If
     Next
     s = s + 1
Next
      
End Sub
效果如如下

使用VBA实现的效果图

李兴德

测试数据.zip (14.31 KB, 下载次数: 16)

2018-9-5 08:31 上传

点击文件名下载附件

痛痛痛痛

李兴德 发表于 2018-9-5 08:31

我是想知道操作方法，不是通过手动一行行的改，因为实际有上千条数据。怎么通过一次性的操作全部数据实现的方法。谢谢啊。

李兴德

痛痛痛痛 发表于 2018-9-5 09:56
我是想知道操作方法，不是通过手动一行行的改，因为实际有上千条数据。怎么通过一次性的操作全部数据实现 ...

你以我为是一个一个改的么？

痛痛痛痛

李兴德 发表于 2018-9-5 10:06
你以我为是一个一个改的么？

哈哈，我表述错误，知道不是一个个改的，能讲下操作方法吗？我提问就是想知道操作的方法

hcm19522

(一) B:J格式化=MOD(ROUND(SUMPRODUCT(1/COUNTIF($B$2:$B2,$B$2:$B2)),),2)
(二) 全部填滿另一色

痛痛痛痛

hcm19522 发表于 2018-9-5 13:53
(一) B:J格式化=MOD(ROUND(SUMPRODUCT(1/COUNTIF($B$2:$B2,$B$2:$B2)),),2)
(二) 全部填滿另一色

大神，谢谢了！！

魔人大队

Sub hh()
Dim y As String
s = 1
Set d = CreateObject("scripting.dictionary")

For Each i In Range(Range("a2"), Cells(Rows.Count, 1).End(xlUp))
   d(i.Value) = ""
Next
arr = d.keys
y = Application.WorksheetFunction.Rept("23", d.Count)
For Each m In arr
    For Each i In Range(Range("a2"), Cells(Rows.Count, 1).End(xlUp))
       If i.Value = m Then

          i.Interior.ColorIndex = Mid(y, s, 1)
       End If
     Next
     s = s + 1
Next
      
End Sub

痛痛痛痛

魔人大队 发表于 2018-9-5 17:08
Sub hh()
Dim y As String
s = 1

哇，用到VBA编程了啊！高手

harryfooty

代码我试了，在排序好的时候这个确实好用，但我发现了如果相同的数据出现在不连续的区域里，那么这个代码算法就办不成了。最后我用了if来解决一下，应该是可以的。

1. Sub 颜色区分2()
   
2. With Worksheets("Sheet1")
   
3. 
   
4.    With .UsedRange.Interior
   
5.         .Pattern = xlNone
   
6.         .TintAndShade = 0
   
7.         .PatternTintAndShade = 0
   
8.     End With
   
9. For Each i In .Range(.Range("a2"), .Cells(Rows.Count, 1).End(xlUp))
   
10.     Cells(2, 1).Interior.ColorIndex = 34
    
11.     If Cells(i.Row - 1, 1).Interior.ColorIndex = 34 And Cells(i.Row - 1, 1) = Cells(i.Row, 1) Then
    
12.             Cells(i.Row, 1).Interior.ColorIndex = 34
    
13.     ElseIf Cells(i.Row - 1, 1).Interior.ColorIndex <> 34 Then
    
14.             If Cells(i.Row - 1, 1) <> Cells(i.Row, 1) Then
    
15.                 Cells(i.Row, 1).Interior.ColorIndex = 34
    
16.             End If
    
17.     End If
    
18. Next
    
19. End With
    
20. End Sub

复制代码