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

如果要在 VBA 中多行以逗号为分隔符取单元格左边的内容，可以使用 For...Next 循环遍历每一行，然后在每一行中使用 Split 函数取左边的内容。以下是示例代码：

Sub GetLeftContent()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行号
    Dim i As Long
    For i = 1 To lastRow '遍历每一行
        Dim cellContent As String
        cellContent = Cells(i, "A").Value '获取当前行 A 列单元格的内容
        Dim cellArray() As String
        cellArray = Split(cellContent, ",") '以逗号为分隔符拆分单元格内容
        Dim leftContent As String
        leftContent = cellArray(0) '取左边的内容
        Cells(i, "B").Value = leftContent '将取到的左边内容输出到 B 列
    Next i
End Sub

在这个示例代码中，首先获取最后一行的行号，然后使用 For...Next 循环遍历每一行。在每一行中，使用与单元格 A1 相同的方式获取当前行 A 列单元格的内容，然后使用 Split 函数以逗号为分隔符将其拆分成数组 cellArray。由于需要取左边的内容，因此直接取数组中的第一个元素即可。最后将取到的左边内容输出到当前行 B 列中。