2017-12-15 2 views
-1

Ich ziehe Daten aus unserer Datenbank, um sie gemäß ihrer Vorlage an eine dritte Partei zu senden. Ich muss Wächterinformation senden, wobei jede Person ihre eigene Reihe hat. Unsere Datenbank hat die Wächterinformation mit einem "/" und dann Details durch jede ID #. Ich muss die Daten nach der Guardian-Zelle aufteilen und alles andere duplizieren.Teilen Sie eine Zelle in zwei Reihen, während Sie den Rest der Daten duplizieren?

enter image description here

Kann dies ohne spezielle Add ons in Excel durchgeführt werden? Alle Hilfe wird geschätzt.

+1

https://stackoverflow.com/questions/42425208/vba-split-cell-values-into-multiple-rows-and-keep-other-data –

+0

https://stackoverflow.com/questions/ 35439099/how-to-split-one-cell-in-multiple-rows-and-add-another-row –

+0

https://stackoverflow.com/questions/25776914/vba-to-split-multi-line- text-in-a-Excel-Zelle-in-getrennte-Zeilen-und-Behalten-Adja –

Antwort

0

Scott Craner verbunden mit der richtigen Antwort mit einem VBA (das war neu für mich), aber war genau das, was ich brauchte.

Sub splitByColB() 
    Dim r As Range, i As Long, ar 
    Set r = Worksheets("Sheet1").Range("B999999").End(xlUp) 
    Do While r.row > 1 
     ar = Split(r.value, "/") 
     If UBound(ar) >= 0 Then r.value = ar(0) 
     For i = UBound(ar) To 1 Step -1 
      r.EntireRow.Copy 
      r.Offset(1).EntireRow.Insert 
      r.Offset(1).value = ar(i) 
     Next 
     Set r = r.Offset(-1) 
    Loop 
End Sub 
Verwandte Themen