I haben die folgenden Daten in Excel:Excel Macro - Comma Separated Zellen in Zeilen
a, b, c
d
e
f, g
h
i
mit jeder Reihe einer Reihe und in einer Zelle darstellt.
Ich mag es konvertieren:
a
b
c
d
e
f
g
h
i
ich das folgende Makro verwenden, aber ich kann die Autosize zu tun, einen Einsatz nicht bekommen, anstatt die Zellenwert zu überschreiben. Jede Hilfe wird geschätzt.
Sub SplitCells()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = 1 To Selection.Rows.Count
Dim splitValues As Variant
splitValues = split(Selection.Rows(i).Value, ",")
Selection.Rows(i).Resize(UBound(splitValues) - LBound(splitValues) + 1).Value = Application.Transpose(splitValues)
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
funktioniert gut, danke –