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:
Vorx () Schwaches oDic als Gegenstand, sNames () als Schnur, vInput (), i als lang, n als lang vInput = Sheet1.Range („A1“, Sheet1.Range („C“ u. Rows.Count). Ende (xlUp)). Wert ReDim sNames (1 zu UBound (vInput, 1), 1 bis 3) Gesetztes oDic = CreateObject („Scripting.Dictionary“) Mit oDic Für i = 1 zu UBound (vInput, 1) Wenn nicht. Existiert (vInput (i, 1)) dann n = n + 1 sNames (n, 1) = vInput (i, 1) sNames (n, 2) = vInput (i, 2) u. „(“ u. vInput (i, 3) u. ")“ sNames (n, 3) = vInput (i, 3) . vInput (i, 1), n addieren ElseIf. Existiert (vInput (i, 1)) dann sNames (. Einzelteil (vInput (i, 1)), 2) = sNames (. Einzelteil (vInput (i, 1)), 2) u. „,“ u. vInput (i, 2) u. „(“ u. vInput (i, 3) u. ")“ sNames (. Einzelteil (vInput (i, 1)), 3) = sNames (. Einzelteil (vInput (i, 1)), 3) + vInput (i, 3) Beenden wenn Zunächst I Ende mit Sheet2.Range („A1“). Die Größe neu bestimmen (n, 3) = sNames Unterseeboot beenden