Ich versuche, Daten von einer einzelnen Zelle in mehrere Zeilen aufzuteilen, wie unten gezeigt.
Ich benutze den folgenden Code:
Sub TransposeRange()
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "Splitcell"
Set InputRng = Application.Selection.Range("A1")
Set InputRng = Application.InputBox("Range(single cell) :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Arr = VBA.Split(InputRng.Range("A1").Value, Chr(9))
OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value = Application.Transpose(Arr)
End Sub
microsoft-excel
vba
data-validation
user850468
quelle
quelle
Antworten:
Stellen Sie sicher, dass Ihre Eingabezelle horizontale Tabulatoren hat. Dein Code:
Typisches Ergebnis:
quelle
chr(9)
ist ein Tabulator, und der Split wird nicht geteilt, wenn die Eingabe keine Tabulatoren enthält. Ich denke, das Bild des OP deutet darauf hin, dass der eigentliche Charakter, auf den sich gespalten werden soll, sein würdechr(10)
oderchr(13)