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
|