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