Formatar HTML em Tabela

[Lindi Ribeiro]

Time,

Eu tenho um trecho de código em HTML queria formatar no Excel para remover o HTML deixar só os dados, isso em VBA. Já consegui excluir as linhas vazias e separar pelo delimitador "-", agora queria remover as linhas com a palavra option, tudo é muito díficil pra mim se alguém puder contribuir.

Texto a formatar:

<option value="285">
                        AMMA - André Miguel
                </option>
        
                <option value="341">
                        AMMA - Fernanda Maria
                </option>
        
                <option value="266">
                        AMMA - Camila da Silva
                </option>
        
                <option value="280">
                        AMMA - Eduardo Martins
                </option>
        
                <option value="275">
                        AMMA - Isabel Silva
                </option>
        
                <option value="336">
                        AMMA - Ana Silva
                </option>
        
                <option value="119">
                        AMMA - Julia silva
                </option>
        
</select>

 

------------------------------------------------------------------------------------------------------------

Sub FormatarHTML()

Dim coluna As String
Dim i As Integer

'apagar células vazias

coluna = Columns("A:A").Select

    i = 2
    
    
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next i

'texto para colunas

 ''ActiveCell.Offset(0, 0).Columns("A:A").EntireColumn.Select
   '' Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
     ''   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
       '' Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        '':="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

    

End Sub

 

 

Editado Agosto 14, 2018 por Lindi Ribeiro
esqueci informação

[Lindi Ribeiro]

Consegui remover os valores de texto que continham a palavra option e select, estava tentando fazer da forma mais díficil, mas assim deu certo :)

Sub FormatarHTMFinal()

 

Dim lRow As Long

Dim lLast As Long

Dim iLin As Long

 

 

lLast = Plan1.UsedRange.Rows.Count

 

For lRow = lLast To 2 Step -1

'If Not Cells(lRow, "a") Like "*option*" Then

If Cells(lRow, "a") Like "*option*" Or _

Cells(lRow, "a") Like "*select*" Then

Rows(lRow).Delete

 

End If

 

Next lRow

 

' apagar linhas vazias

 

With Sheets("Plan1")

 

For iLin = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1

If Cells(iLin, "A") = "" Then .Rows(iLin).Delete

 

If iLin Mod 100 = 0 Then DoEvents

 

Next iLin

End With

 

End Sub