Question

我的excel电子表格有问题。我将数据从Access导入电子表格，我将其用作我的员工的拣配清单。它按传输号码排序，我希望当不同的传输号码以另一种颜色显示时，电子表格会将行分开。

像这样：

Transportnumber：

112233
112233
112233
的 223355 [GREEN]
223355 [绿色]
555566
555566

有没有可能做到这一点？该列表包含大约10个包含数据的列，因此，当另一个不同的传输出现时，员工可以轻松阅读这些列。

Answer 1

如果您同意只使用两种颜色，请使用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

如果你没有排序或者你想要不同颜色你需要使用一系列颜色......如果你有空白，你需要添加一些其他检查......这只是一个起点。<登记/> 此代码已从A2开始。您在最后一个Range中更改的列（现在我写L）...

当出现excel列表中的不同行时分开

1 个答案: