用于循环切割和粘贴细胞的部分

Question

我有一个关于如何设置for循环以使用trim函数在一系列单元格中复制和粘贴字符串值的快速问题。我已经让这部分工作得很好，完全归功于我在微软论坛上发现的@Jeeped编写的脚本。但是现在我需要让脚本沿着我正在使用trim函数的整个列的长度运行并放置提取的值。

目前修剪功能正常但我无法将提取的值放在后续范围内。它目前停留在同一个单元格中。

任何帮助将不胜感激！ 这是代码的副本。

Sub cut_first_to_somewhere()

    Dim rng As Range, target As Range

    Set target = Range("B2")  '<< set this to the correct destination

    For Each rng In Range("C2:C1000")

        target = Trim(Left(rng.Text, InStr(1, rng.Text & Chr(32), Chr(32))))

        rng = Trim(Replace(rng, target, vbNullString, 1, 1))

    target = target.Offset(0, -1)


    Next rng

End Sub