[Texto para colunas VBA]

Tarde Gente,

Espero que possam me ajudar,  eu queria fazer em vba, a mesma função de texto para colunas separar por aspas duplas, criei uma macro e até ai deu certo, só que eu queria também que ele copiasse o valor da coluna B e colasse na A sobrepondo os dados da linha correspondente, o problema é que nem todas as linhas da coluna b tem dados e eu não consegui fazer com que a macro execute da célula B1 até a B20 por exemplo quando há células vazias.

Exemplo em anexo.

 

[Formatar HTML em Tabela]

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

[Formatar HTML em Tabela]

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

 

 

[Split VBA]

.

[Split VBA]

Obrigada Gender!!!

Deu certo sim, só estou tentando fazer executar para toda a coluna, conhece alguma forma.

[Split VBA]

Olá pessoal,

Sou novata no VBA e estou com um probleminha

queria fazer aquela função de textos para colunas por exemplo selecione a coluna A e separe o texto pelo caractere "-", tentei usando o Split mas não rodou.