在Excel列表中出现不同的行时分开
我有一个Excel电子表格的问题。 我从Access导入数据到电子表格，我用它作为我的员工的select列表。 这是按运输号码sorting，我希望电子表格分开不同的运输号码出现在另一种颜色的行。
喜欢这个：
Transportnumber：
- 112233
- 112233
- 112233
- 223355 [GREEN]
- 223355 [GREEN]
- 555566
- 555566
有这种可能吗？ 该列表包含大约10个以上的数据列，因此当另一个不同的交通工具出现时，让员工更容易阅读是很重要的。
如果您同意只有两种颜色，使用VBA：
Dim Tmp As String Dim Colo As Double Tmp = "" Colo = 14470546 For i = 2 To 9999 If Cells(i, 1).Value = "" Then Exit For If Cells(i, 1).Value <> Tmp Then If Colo = 14470546 Then Colo = 9737946 Else Colo = 14470546 End If Tmp = Cells(i, 1).Value End If ' Color the row ' Range(i & ":" & i).Interior.Color = Colo ' Color SOME columns. Range("A" & i & ":L" & i).Interior.Color = Colo Next 如果你没有sorting，或者你想要不同的颜色，你需要使用一系列的颜色…如果你有空白，你需要添加一些其他的检查…这只是一个起点。
这段代码已经从A2开始。 你在最后一个范围内改变的列（现在我写L）…