使用 For 循环实现 vba 多行单元格内容中含有逗号以逗号为分隔符获取逗号右边内容，注意是多行

你可以使用 `Split` 函数和 `For` 循环来实现此功能。下面是一个示例代码，假设你要处理的单元格范围是 `A1:A10`：

Sub GetCommaRight()
    Dim rng As Range
    Dim lines() As String
    Dim i As Long, j As Long
    Dim arr() As String
    
    Set rng = Range("A1:A10")
    
    ' 按行分割单元格内容
    lines = Split(rng.Text, vbNewLine)
    
    ' 遍历每一行
    For i = 0 To UBound(lines)
        ' 按逗号分割每一行的内容
        arr = Split(lines(i), ",")
        
        ' 遍历每个逗号分割出来的字符串
        For j = 0 To UBound(arr)
            ' 取得逗号右侧的内容
            Debug.Print Trim(Mid(arr(j), InStr(arr(j), ",") + 1))
        Next j
    Next i
End Sub

这个代码将会把单元格 `A1:A10` 中每行的逗号右侧的内容打印到 VBA 的调试窗口中。你可以根据自己的需要修改这个代码，例如将内容存储到数组中、写入到单元格中等等。

相关问题

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 循环遍历每一行来实现。