Есть ли способ объединить родительский столбец на основе дочернего столбца

Question

У меня есть 3 столбца Дата и Сдвиг, как показано ниже

Date    Shift   Subject
26th    Shift 1 English
26th    Shift 1 Maths
26th    Shift 1 Hindi
26th    Shift 2 Anatomy
26th    Shift 2 Physiology
26th    Shift 3 Earth Science
27th    Shift 1 VHDL
27th    Shift 1 Verilog
27th    Shift 1 Logic Design
27th    Shift 2 Power Electronics
27th    Shift 3 VBA
27th    Shift 4 Sociology
28th    Shift 1 Law1
28th    Shift 2 Law2

Обратите внимание, что в приведенном выше столбце смены зависит от даты, столбец темы зависит как от даты, так и от смены. Мне нужен код VBA для отображения под выводом, прикрепленным на изображении, на следующем листе.

Answer 1

Да, вы можете попробовать использовать этот код:

fila = Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row
For i = 1 To Cells(fila, Columns.Count).End(xlToLeft).Offset(0, 0).Column
    cont = 0
    For j = 1 To fila
        While (Cells(fila - j + 1, i - cont) = "")
            cont = cont + 1
        Wend
        n = Cells(fila - j + 1, i - cont) & " " & n
    Next j
    MsgBox n
    n = ""
Next i
MsgBox "Fin de aplicación"

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