1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26:
X secundario () oDic dévil como objeto, sNames () como secuencia, vInput (), i como de largo, n como de largo vInput = Sheet1.Range (“A1”, Sheet1.Range (“C” y Rows.Count). Extremo (xlUp)). Valor sNames de ReDim (1 a UBound (vInput, 1), 1 a 3) oDic determinado = CreateObject (“Scripting.Dictionary”) Con oDic Para i = 1 a UBound (vInput, 1) Si no. Existe (vInput (i, 1)) entonces n = n + 1 sNames (n, 1) = vInput (i, 1) sNames (n, 2) = vInput (i, 2) y “(” y vInput (i, 3) y ")” sNames (n, 3) = vInput (i, 3) . Agregar el vInput (i, 1), n ElseIf. Existe (vInput (i, 1)) entonces sNames (. Artículo (vInput (i, 1)), 2) = sNames (. Artículo (vInput (i, 1)), 2) y “,” y vInput (i, 2) y “(” y vInput (i, 3) y ")” sNames (. Artículo (vInput (i, 1)), 3) = sNames (. Artículo (vInput (i, 1)), 3) + vInput (i, 3) Terminar si Después i Extremo con Sheet2.Range (“A1”). Volver a clasificar según el tamaño (n, 3) = sNames Terminar el submarino