Utilice VBA en EXCEL para lograr las siguientes funciones, ¡urgente!

Puedes usar un diccionario

También puedes usar un array

También puedes usar ADO

Usa un diccionario Te ayuda a crear uno

Sub OkExcelDictionary()

'El sitio web de Smart Excel proporciona

Dim d como objeto

Dim WeekStr como variante

Dim r como rango

Dim i como entero

Establecer d = CreateObject("Scripting.Dictionary")

Set r = Hojas de trabajo (1).Range("A1")

WeekStr = Split("Lunes, Martes, Miércoles, Jueves, Viernes, Sábado, Domingo", ","")

Hacer mientras r.Text <> ""

Si d.exists(r.Text) Entonces

d.Item(r.Text) = d.Item(r. Texto) & "," & r.Offset(0, 1).Text

Else

d.Add r.Text, r.Offset(0, 1).Text

Finalizar si

Establecer r = r.Offset(1, 0)

Bucle

Establecer r = Worksheets(2).Range ("A1 ")

Para i = 0 a 6

r.Value = WeekStr(i) & IIf(d.exists(WeekStr(i)), "," & d.Item (WeekStr(i)), "")

Establecer r = r.Offset(1, 0)

Siguiente

d.RemoveAll

Establecer r = Nada: Establecer d = Nada

End Sub