使用 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 的调试窗口中。你可以根据自己的需要修改这个代码，例如将内容存储到数组中、写入到单元格中等等。