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

在VBA（Visual Basic for Applications）中，你可以使用`Split()`函数配合数组操作来将一个单元格中以空格分隔的内容转换成多行。假设你想把A1单元格里的内容按照空格分割，并存储到数组中，然后分别写入到B列的不同行：

Sub SplitAndWriteToRows()
    Dim strContent As String
    Dim arrWords() As String
    Dim i As Long
    
    ' 读取A1单元格的内容
    strContent = Range("A1").Value
    ' 使用Split函数按空格分隔字符串
    arrWords = Split(strContent, " ")
    
    ' 遍历数组，写入B列的对应行
    For i = 0 To UBound(arrWords)
        Cells(i + 1, 2) = arrWords(i) '<-- 这里B列的索引从1开始，如果是从0开始则去掉第一个'
    Next i
End Sub

运行这个宏后，A1单元格中每一段分隔后的文本就会出现在B列的相应行。

相关问题

vba 多行单元格内容中含有逗号以逗号为分隔符获取单元格右边内容，注意是多行

如果多行单元格内容中含有逗号，我们可以通过将单元格内容中的逗号替换成其他字符，例如分号，再按照分号为分隔符来获取单元格的右边内容。具体实现步骤如下：

1. 获取多行文本内容，可以使用 Range 对象的 Value 属性获取；
2. 将文本内容中的逗号替换成其他字符，例如分号，可以使用 VBA 中的 Replace 函数；
3. 将多行文本内容转化为一维数组，可以使用 Split 函数将文本内容按照分号分隔符转化为一维数组；
4. 遍历数组，获取每个元素的右边内容，可以使用 VBA 中的 Right 函数获取字符串右边的内容；
5. 将获取的右边内容存储到一个新的数组中；
6. 将新的数组中的内容使用 Join 函数连接起来，以逗号为分隔符。

下面是一个示例代码：

Sub GetRightContent()
    Dim rng As Range
    Dim text As String
    Dim arr() As String
    Dim i As Long
    Dim newArr() As String
    
    Set rng = Range("A1:A10") '指定多行文本所在的单元格范围
    text = Replace(Join(Application.Transpose(rng.Value), ";"), ",", ";") '将逗号替换为分号
    arr = Split(text, ";") '按照分号分隔符将文本内容转化为一维数组
    
    ReDim newArr(LBound(arr) To UBound(arr)) '初始化新数组
    
    For i = LBound(arr) To UBound(arr)
        newArr(i) = Right(arr(i), Len(arr(i)) - InStrRev(arr(i), ";"))
    Next i
    
    Range("B1").Value = Join(newArr, ",") '将新数组中的内容连接起来，以逗号为分隔符
End Sub

其中，将多行文本转化为一维数组的代码使用了 Application.Transpose 函数，这个函数可以将多行文本转化为一列数组。如果不使用这个函数，也可以使用 For 循环遍历每一行来实现。

vba 多行以逗号为分隔符取单元格右边内容，注意是多行

可以使用 VBA 中的 Split 和 Join 函数来实现将多行以逗号为分隔符取单元格右边内容的功能。具体实现步骤如下：

1. 获取多行文本内容，可以使用 Range 对象的 Value 属性获取；
2. 将多行文本内容转化为一维数组，可以使用 Split 函数将文本内容按照逗号分隔符转化为一维数组；
3. 遍历数组，获取每个元素的右边内容，可以使用 VBA 中的 Right 函数获取字符串右边的内容；
4. 将获取的右边内容存储到一个新的数组中；
5. 将新的数组中的内容使用 Join 函数连接起来，以逗号为分隔符。

下面是一个示例代码：

Sub GetRightContent()
    Dim rng As Range
    Dim text As String
    Dim arr() As String
    Dim i As Long
    Dim newArr() As String
    
    Set rng = Range("A1:A10") '指定多行文本所在的单元格范围
    text = Join(Application.Transpose(rng.Value), ",") '将多行文本转化为一维数组
    arr = Split(text, ",") '按照逗号分隔符将文本内容转化为一维数组
    
    ReDim newArr(LBound(arr) To UBound(arr)) '初始化新数组
    
    For i = LBound(arr) To UBound(arr)
        newArr(i) = Right(arr(i), Len(arr(i)) - InStrRev(arr(i), ","))
    Next i
    
    Range("B1").Value = Join(newArr, ",") '将新数组中的内容连接起来，以逗号为分隔符
End Sub

其中，将多行文本转化为一维数组的代码使用了 Application.Transpose 函数，这个函数可以将多行文本转化为一列数组。如果不使用这个函数，也可以使用 For 循环遍历每一行来实现。