Colección de citas famosas - Colección de consignas - Utilice VBA en EXCEL para lograr las siguientes funciones, ¡urgente!

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