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

可以使用 VBA 中的 Split 函数来实现多行以逗号为分隔符取单元格右边内容。具体实现方法如下：

1. 首先获取单元格的值，假设单元格地址为 A1，代码如下：

Dim cellValue As String
cellValue = Range("A1").Value

2. 然后使用 Split 函数将单元格的值按照逗号分隔成一个数组，代码如下：

Dim cellValueArr() As String
cellValueArr = Split(cellValue, ",")

3. 最后获取数组中最后一个元素，即单元格右边的内容，代码如下：

Dim rightContent As String
rightContent = cellValueArr(UBound(cellValueArr))

这样就可以获取单元格右边的内容了。完整代码如下：

Sub GetRightContent()
    Dim cellValue As String
    Dim cellValueArr() As String
    Dim rightContent As String
    
    cellValue = Range("A1").Value
    cellValueArr = Split(cellValue, ",")
    rightContent = cellValueArr(UBound(cellValueArr))
    
    MsgBox rightContent
End Sub

注意：上述代码是在 VBA 中使用的，需要在 Excel 中打开 VBA 编辑器才能运行。