vba中将一个单元格中以空格分隔的内容分成四行

在VBA (Visual Basic for Applications) 中，如果你想要将一个单元格中以空格分隔的内容拆分为四行，可以使用 `Split` 函数先将内容分割成数组，然后遍历这个数组并将每个元素写入新的行。这里是一个简单的示例：

Sub SplitAndWriteToFourRows()
    Dim inputCell As Range ' 假设输入在A1单元格
    Set inputCell = Range("A1")
    
    Dim data() As String ' 存储分割后的数据
    Dim i As Long
    data = Split(inputCell.Value, " ") ' 分割以空格

    Dim newRow As Long
    newRow = 5 ' 新行从第5行开始（假设前4行已存在）

    For Each item In data
        If newRow < 9 Then ' 检查是否超出范围（总共四行）
            Cells(newRow, 1).Value = item ' 将每个元素写入新的一行
            newRow = newRow + 1 ' 增加行数
        Else
            Exit Sub ' 如果超过范围，则停止处理
        End If
    Next item
End Sub

在这个例子中，我们首先获取需要处理的单元格，然后根据空格将其值分割成数组。接着逐个将数组元素写入到从第五行开始的新行中，直到达到四行为止。