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

如果需要处理多行数据，可以使用 For Each 循环遍历每个单元格，并在每个单元格上执行与上面相同的操作。具体的代码如下：

Sub GetRightContent()
    Dim cellValue As String
    Dim cellContent As Variant
    Dim result As String
    Dim targetRange As Range
    Dim targetCell As Range
    
    Set targetRange = Range("A1:A10") '将需要处理的单元格范围赋值给变量
    
    For Each targetCell In targetRange '遍历单元格范围内的每个单元格
        cellValue = targetCell.Value '将需要处理的单元格的值读取到变量中
        cellContent = Split(cellValue, ",") '将单元格内容按照逗号分隔成数组
        result = Right(cellContent(UBound(cellContent)), Len(cellContent(UBound(cellContent))) - InStrRev(cellContent(UBound(cellContent)), " ")) '取数组中最后一个元素的右边内容
        targetCell.Offset(0, 1).Value = result '将结果写入单元格右侧
    Next targetCell
End Sub

上述代码中，我们首先将需要处理的单元格范围赋值给变量 targetRange，然后使用 For Each 循环遍历单元格范围内的每个单元格。在每个单元格上，我们都执行与上面相同的操作，将结果写入单元格右侧。需要注意的是，我们使用了 Offset 函数来定位要写入的单元格，这里将结果写入了每个单元格的右侧。