Boa tarde!!

use a nossa base de dados!!
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Att

Sim, separar eu já encontrei, mas gostaria de uma macro que criasse a nova linha igual a anterior, apenas trocando campos do equipamento afetado..

Boa tarde!!

Veja
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Att

Desculpe a insistência, mas não é exatamente isso que procuro...

O que eu preciso fazer da macro é o seguinte...

Tenho uma planilha nesse formato:

Numero Ofensor Equipamentos Afetados
1 Energia equip01
2 dados equip02
3 dados equip03,equip04
4 dados equip03,equip05
5 Energia equip10,equip15,equip43,equip54,equip48
6 Transmissão equip01
7 Plataforma de Dados equip10,equip05,equip14

Preciso chegar nesse, fiz apenas o que esta em amarelo para entender:

Numero Ofensor Equipamentos Afetados
1 Energia equip01
2 dados equip02
3 dados equip03
3 dados equip04
4 dados equip03,equip05
5 Energia equip10,equip15,equip43,equip54,equip48
6 Transmissão equip01
7 Plataforma de Dados equip10,equip05,equip14

Já consegui fazer uma macro que separa o campo equipamento afetados em outras colunas, ficando assim:

Numero Ofensor Equipamentos Afetados
1 Energia equip01
2 dados equip02
3 dados equip03 equip04
4 dados equip03 equip05
5 Energia equip10 equip15 equip43 equip54 equip48
6 Transmissão equip01
7 Plataforma de Dados equip10 equip05 equip14

Mas preciso que cada coluna nova dessa criada seja uma nova linha com os campos numero e ofensor que eles pertencem.. como o marcado em negrito la em cima..

Bom dia!!

Digamos que eu entendi....

E que os dados estão em Coluna A, nas outras colunas B,C,D, não tem nada (dados).
Então...

Sub AleVBA_19513()
Dim LR As Long, i As Long
Dim X As Variant
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
Columns("A").Insert
For i = LR To 1 Step -1
    With Range("B" & i)
        If InStr(.Value, ",") = 0 Then
            .Offset(, -1).Value = .Value
        Else
            X = Split(.Value, ",")
            .Offset(1).Resize(UBound(X)).EntireRow.Insert
            .Offset(, -1).Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
        End If
    End With
Next i
Columns("B:C").Delete
Application.ScreenUpdating = True
End Sub

Att