CSV Datei trennen, ersten Wert beibehalten und folgende Werte mit KOMMA trennen

@echo off & setlocal enabledelayedexpansion
set "Input=csv.csv"  
set "Output=Output.csv"  
<"%Input%" set /p "Header="  
for /f "skip=1 tokens=1,2 usebackq delims=;" %%A in ("csv.csv") do (  
if "!Data_%%A!"=="" set "dbrs=!dbrs! %%A"  
set "Data_%%A=!Data_%%A!,%%B"  
)
>"%Output%" (  
echo.%Header%
for %%A in (%dbrs%) do echo.%%A;!Data_%%A:~1!
)

Ein = "Test.csv"  
Aus = "Test_neu.csv"  
Delim = ";"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set d = CreateObject("Scripting.Dictionary")  

T = Split(fso.OpenTextFile(Ein).ReadAll, vbNewLine)
Ueber = T(0) 'erste Zeile übernehmen  
For i = 1 To UBound(T) 'Bezeichnungen sammeln  
    If Trim(T(i)) <> "" Then 'keine Leerzeile verarbeiten  
        dbr = Split(T(i), Delim)(0) 'erstes und ...  
        Marke = Split(T(i), Delim)(1) '... zweites Feld der Datenzeile lesen ...  
        If dbr <> "" Then  
            If Not d.Exists(dbr) Then '... und, falls noch nicht vorhanden, ...  
                d.Add dbr, Marke '... als neuen Eintrag dem Dictionary hinzufügen; ...  
            Else
                d.Item(dbr) = d.Item(dbr) & "," & Marke '... ansonsten nur "Marke" an bisherige Zeile anfügen  
            End If
        End If
    End If
Next

Daten = Ueber 'Ausgabe beginnt mit Überschrift  
K = d.Keys: I = d.Items ' Werte aus Dictionary in Arrays übernehmen ...  
For j = 0 To UBound(K) '... und diese zeilenweise ...  
    Daten = Daten & vbNewLine & K(j) & Delim & I(j) '... auslesen und zur Ausgabe hinzufügen  
Next

fso.CreateTextFile(Aus).Write Daten 'Ausgabedatei schreiben  
WScript.Echo "Fertig."