アクティブセルよりも分割する方法

Question

私は数式から返された値に基づいてセルを分割しようとしています。 私は写真をアップロードすることはできませんので、私は説明できるように最善を尽くします。

次のセルを分割するために私のコードです：

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 

私はそれが列D内のすべてのセルを分割するように、私のプログラムのセットを取得する方法があるかどうか迷って、代わりにちょうどいますアクティブセル。

ここ

Answer 1

、これを試してみてください。

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 

このサブは、あなたのアクティブセルである単一セルのためのテキストを分割するだけです。 複数のセルを分割する必要がある場合は、セルごとにこの機能をループする必要があります。