So teilen Sie mehr als die aktive Zelle

Question

Ich versuche, eine Zelle zu erhalten, die basierend auf den von einer Formel zurückgegebenen Werten aufgeteilt wird. Es lässt mich kein Foto hochladen, also werde ich mein Bestes geben, um es zu erklären.

Das folgende ist mein Code, um die Zelle zu teilen:

Sub splitText() 
Dim splitVals As Variant, totalVals As Long, I As Integer 
splitVals = Split(ActiveCell.Value, " ") 
totalVals = UBound(splitVals) 
range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row,ActiveCell.Column + 1 + totalVals)).Value = splitVals 
End Sub 

Ich frage mich, ob es eine Möglichkeit, mein Programm gesetzt zu bekommen, ist so, dass es alle Zellen in der Spalte D aufgeteilt wird, statt nur die aktive Zelle.

Answer 1

Hier versuchen Sie dies:

Sub splitText() 

    Dim r As Range 
    Dim splitVals As Variant, totalVals As Long, I As Integer 

    For Each r In Range("D:D").Cells 
     If r.Value <> "" Then 
      splitVals = Split(r.Value, " ") 
      totalVals = UBound(splitVals) 
      Range(Cells(r.Row, r.Column + 1), Cells(r.Row, r.Column + 1 + totalVals)).Value = splitVals 
     End If 
    Next r 


    End Sub 

Answer 2

Sub splitText() 
    Dim splitVals As Variant, totalVals As Long 
    Dim N as single 
    splitVals = Split(ActiveCell.Value, " ") 
    totalVals = UBound(splitVals) 
    For N = 0 to totalVals 
     ActiveCell.offset(0, 1 + N) = splitVals(N) 
     ActiveCell.offset(1, 0).select 
    Next N 
End Sub 

Dieser Unter nur Text für eine einzelne Zelle zu teilen ist, die Ihre aktive Zelle ist. Wenn Sie für mehrere Zellen aufteilen müssen, dann müssen Sie diese Funktion für jede Zelle Schleife.