按标签值将逗号分隔的单元格转换为多行(Excel VBA)

Sub ConvertToMultipleRows()
    Dim cell As Range
    Dim values() As String
    Dim i As Integer
    
    For Each cell In Selection
        values = Split(cell.Value, ",")
        cell.Offset(1).Resize(UBound(values)).EntireRow.Insert
        For i = 0 To UBound(values)
            cell.Offset(i + 1).Value = Trim(values(i))
        Next i
        cell.ClearContents
    Next cell
End Sub