Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda - Separar string delmitada


danilomilani

Pergunta

Ola galera, to usando o Execell e queria que alguém do forum me ajudasse com uma duvida

Eu tenho a seguinte planilha:

F-001 SEP138-13,8kV

F-003 SEP138-13,8kV

F-004 SEP138-13,8kV

F-005 SEP138-13,8kV

F-006 SEP138-13,8kV

F-007 SEP138-13,8kV

F-008 SEP138-13,8kV

Gostaria de saber se alguém sabe desenvolver algum macro no Visual Basic para separar a primeira parte "F-001" para uma coluna diferente

Exemplo:

Coluna A= F001

Coluna B= Sep138-13,8kV

A planilha é bem extensa, vai até aproximadamente F-220

Eu só consegui chegar até isso:

Function StringElement(str As String, chr As String, ind As Integer)
Dim arr_str As Variant
arr_str = Split(str, chr)
StringElement = arr_str(ind - 1)
End Function

é bem simples, apenas separa em colunas unicas e não a planilha inteira

conto com a suas ajudas

Obrigado des de já

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Boa noite Amigo.

Para isso não é necessário VBA, mais vamos lá.

Se o comprimento dos valores sempre são os mesmo você usar

celula 1 = left(planilha.cells(linha, coluna), 5)

celula 2 = mid(planilha.cells(linha, coluna),7, 13)

ou celula2 = right(planilha.cells(linha, coluna), 13)

espero te ajudado.

At.

Link para o comentário
Compartilhar em outros sites

  • 0

Seguindo a lógica do Matheus...

Private Sub CommandButton1_Click()
Separar
End Sub

Sub Separar()
Dim VT() As String
Dim I As Integer
Texto = txt1.Text

VT() = Split(Texto, " ")

For I = LBound(VT) To UBound(VT)
  MsgBox VT(I)
Next I

End Sub

Criei este exemplo no Excel... só adaptar :rolleyes:

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...