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 secondaire () Faible oDic comme objet, sNames () comme corde, vInput (), I en tant que longtemps, n en tant que longtemps vInput = Sheet1.Range (« A1 », Sheet1.Range (« C » et Rows.Count). Extrémité (xlUp)). Valeur sNames de ReDim (1 à UBound (vInput, 1), 1 à 3) oDic réglé = CreateObject (« Scripting.Dictionary ») Avec oDic Pour I = 1 à UBound (vInput, 1) Sinon. Existe (vInput (I, 1)) puis n = n + 1 sNames (n, 1) = vInput (I, 1) sNames (n, 2) = vInput (I, 2) et « (" et vInput (I, 3) et ") » sNames (n, 3) = vInput (I, 3) . Ajouter le vInput (I, 1), n ElseIf. Existe (vInput (I, 1)) puis sNames (. Article (vInput (I, 1)), 2) = sNames (. Article (vInput (I, 1)), 2) et « , » et vInput (I, 2) et « (" et vInput (I, 3) et ") » sNames (. Article (vInput (I, 1)), 3) = sNames (. Article (vInput (I, 1)), 3) + vInput (I, 3) Finir si Après i Extrémité avec Sheet2.Range (« A1 »). Remettre à la côte (n, 3) = sNames Finir le sous-marin