-1

Учитывая данные ниже, пара столбцов с одинаковыми значениями как минимум для 4 последовательных строк должна быть выделена.

Вот изображение для лучшей визуализации:

2   2
3   4
3   4
3   4
3   4
2   3
1   2
2   2
3   3
3   3
3   3
3   3
2   3
2   3
2   3
2   3
2   2
3   4
3   4
3   4
3   4
3   4

Выходные данные должны быть примерно такими, где значения пары столбцов, которые являются одинаковыми как минимум для 4 последовательных строк, подсвечиваются:

2   2
3   4
3   4
3   4
3   4
2   3
1   2
2   2
3   3
3   3
3   3
3   3
2   3
2   3
2   3
2   3
2   2
3   4
3   4
3   4
3   4
3   4

Затем мне нужно знать количество экземпляров N-последовательной равной пары столбцов. Учитывая данные выше, N = 4 должно быть 3, а N = 5 должно быть 1, где N - количество строк, которым пара столбцов последовательно равна.

1 ответ1

0

Как я уже упоминал в своем комментарии, я думаю, что это немного выше того, на что способен условное форматирование.

Поэтому я предлагаю вашему вниманию следующий макрос Excel, который

До

в это

После

Я не несу ответственности за ваши данные с этим. Для этого потребуется точная настройка в соответствии с вашими обстоятельствами (начальными номерами строк и столбцов и т.д.), И если он создаст черную дыру и ваш компьютер исчезнет в результате чего-то, то все, что я бы сказал, это «Вау, вы получили это на камеру?"Потому что это было бы здорово.

Тем не менее, это сработало для меня, и если вы настроите его правильно, это может сработать и для вас. Или вы можете изменить его, чтобы лучше соответствовать вашим потребностям.

Sub RepeatedRows()
'Written by Mokubai, 14/10/12
FirstColumn = "A"
LastColumn = "B"
StartRow = 2

' First we establish how far we are going down the table
NumRows = ActiveSheet.UsedRange.Rows.Count
NumCols = ActiveSheet.UsedRange.Columns.Count

'Then we start working out
RowString = ""
oldRowString = ""
numRepeated = 0

For i = StartRow To NumRows
    FirstCell = FirstColumn & i
    'FirstCell = "A1"
    LastCell = LastColumn & i
    'Create a temporary string that is the row contents
    For Each Cell In Range(FirstCell, LastCell)
        RowString = RowString & Cell.Value
    Next Cell
    'compare it to the previous row:
    If RowString = oldRowString Then
        numInGroup = numInGroup + 1
    Else
        numInGroup = 0
        Range(FirstCell).EntireRow.Interior.ColorIndex = 0
    End If

    'now we fill in the current and all previous rows to the same colour
    'I have done absolutely nothing facy with the colouring, it is simply using the value
    For col = 0 To numInGroup
        CellNo = FirstColumn & (i - col)
        Range(CellNo).EntireRow.Interior.ColorIndex = (numInGroup)

        'this next bit is so that only the last member of the group gets a value in it
        'in order to help define where the groups are
        EmptyColumn = "C" & i - col
        Range(EmptyColumn).Select
        If col = 0 Then
            ActiveCell.Value = numInGroup + 1
        Else
            ActiveCell.Value = ""
        End If
    Next col

    'in either case we store the current row string and clear the temporary row string and repeat
    oldRowString = RowString
    RowString = ""
Next

End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .