Переупорядочить списки строк в одном месте на основе хронологического порядка дат в этих рядах

Question

У меня есть четыре курса, которые я хочу запланировать на этот срок. Я перечислил данные тестов и заданий каждого курса в отдельных таблицах в Excel следующим образом:

Я хочу решить проблему компиляции и переупорядочения строк этих таблиц в соответствии с хронологическим порядком их дат в разных точках следующим образом:

Будь то использование формул, условное форматирование или что-то еще, что является наиболее эффективным методом для этого?

Answer 1

После рассмотрения диапазонов данных для разных курсов и итогового результата я могу предложить вам сделать следующее.

1. Соберите все 4 части в одном диапазоне данных с помощью копирования и вставки или кода VBA.
2. Сортировать весь диапазон по дате в порядке возрастания.
3. Наконец примените условное форматирование.

Вы можете использовать этот простой код VBA для копирования и вставки данных вместе с форматами ячеек, что сэкономит ваше время и вы можете пропустить формат.

Sub CommandButton1_Click()

Dim CopyRng As Range, PasteRng As Range

Title = "Copy & Paste"

Set CopyRng = Application.Selection

  Set CopyRng = Application.InputBox("Ranges to Copy :", Title, CopyRng.Address, Type:=8)
    Set PasteRng = Application.InputBox("Range to Paste, select Single cell):", Title, Type:=8)

       CopyRng.Copy

         PasteRng.Parent.Activate

           PasteRng.PasteSpecial xlPasteValuesAndNumberFormats

            PasteRng.PasteSpecial xlPasteFormats

         Application.CutCopyMode = False

End Sub

Этот код VBA вы можете использовать для сортировки по дате.

Sub CommandButton2_Click()

Dim SortRange As Range, keyRange As Range

  Set SortRange = Application.InputBox("Sort Range", SortRange.Address,Type:=8)

  Set keyRange = Application.InputBox("Key Range", keyRange.Address,Type:=8) 

SortRange.Sort Key1:=keyRange, Order1:=xlAscending

End Sub

NB: Надеюсь, это поможет вам.Если мое решение отличается от вашей идеи, просто оставьте комментарий.