Note: The other languages of the website are Google-translated. Back to English

Como inserir uma linha automaticamente com base no valor da célula no Excel?

doc-insert-row-based-on-value-1
Suponha que você tenha um intervalo de dados e queira inserir automaticamente as linhas em branco acima ou abaixo de um determinado valor no Excel, por exemplo, inserir automaticamente as linhas abaixo do valor zero, conforme mostrado a imagem abaixo. No Excel, não há uma maneira direta de resolver essa tarefa, mas posso introduzir um código Macro para você inserir linhas automaticamente com base em um determinado valor no Excel.
Insira a linha abaixo com base no valor da célula com VBA

Insira a linha acima com base no valor da célula com o Kutools para Excel boa ideia 3

Para inserir uma linha com base no valor da célula executando o VBA, siga as etapas abaixo:

1. Pressione Alt + F11 teclas simultaneamente, e um Microsoft Visual Basic para Aplicações janela pula para fora.

2. Clique inserção > Móduloe cole abaixo o código VBA no popping Módulo janela.

VBA: insira a linha abaixo com base no valor da célula.

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. Clique F5 chave ou o Opere , uma caixa de diálogo é exibida e selecione a coluna que contém zero. Veja a imagem:
doc-insert-row-based-on-value-2

4. Clique OK. Então, linhas em branco serão inseridas abaixo do valor zero.
doc-insert-row-based-on-value-3

Dica:

1. Se você deseja inserir linhas com base em outro valor, você pode alterar 0 a qualquer valor que você deseja no VBA: Se Rng.Value = "0" então.

2. Se você deseja inserir linhas acima de zero ou outro valor, você pode usar o código vba abaixo.

VBA: Insira a linha acima do valor zero:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


Se você não está familiarizado com o VBA, pode tentar Kutools for Excel's Selecione células específicas utilitário e insira as linhas acima.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalar Kutools para Excel, faça o seguinte:(Baixe agora o Kutools para Excel gratuitamente!)

1. Selecione a lista da qual deseja descobrir as células específicas e clique em Kutools > Selecionar > Selecione células específicas. Veja a imagem:
doc inserir linha com base no valor 9

2. Na caixa de diálogo pop-up, verifique Linha inteira opção e, em seguida, vá para selecionar É igual a desde Tipo específico lista e insira o valor que deseja encontrar na caixa de texto correta. Veja a imagem:
doc inserir linha com base no valor 6

3. Clique Ok, e uma caixa de diálogo aparecerá para lembrá-lo do número de linhas selecionadas, basta fechá-la.

4. Coloque o cursor em uma linha selecionada e clique com o botão direito para selecionar inserção no menu de contexto. Veja a imagem:
doc inserir linha com base no valor 7

Agora as linhas são inseridas acima com base em um valor específico.
doc inserir linha com base no valor 8


Artigos relativos:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (43)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Quero colar conteúdo específico abaixo da célula. Como fazer isso? Em vez de linha em branco, quero inserir valor em algumas colunas.
Este comentário foi feito pelo moderador no site
Oi, quero inserir várias linhas com base no valor Ex: Quero inserir 1 linha em branco abaixo da célula com valor 2, 2 linhas abaixo da célula com valor 3, 3 linhas abaixo da célula com valor 4 e assim por diante Por favor me ajude com isso?
Este comentário foi feito pelo moderador no site
Você já obteve uma resposta para isso? Estou tentando fazer a mesma coisa.

Tenha uma lista de funcionários com # semanas de férias que eles recebem. Quero inserir uma linha para cada semana. Serão 1, 2 ou 3 linhas dependendo de quanto tempo eles ganharam. os #s 1 2 3 já estão na minha planilha.
Este comentário foi feito pelo moderador no site
Desejo inserir linhas com base em uma contagem usando um valor de célula em uma planilha e inserindo linhas em outra planilha.
Este comentário foi feito pelo moderador no site
Graças à sua mensagem. Mas você pode descrever sua pergunta com mais detalhes? Quais linhas você deseja inserir? Em branco? E onde você deseja inserir na folha? Se você puder, me dê uma captura de tela. Obrigada.
Este comentário foi feito pelo moderador no site
Eu te amo. Obrigada.
Este comentário foi feito pelo moderador no site
Isso foi incrível!!. Obrigado cara.
Este comentário foi feito pelo moderador no site
Como posso inserir mais de uma linha?
Este comentário foi feito pelo moderador no site
Você pode tentar este VBA

Sub Linha em Branco()
'Atualizar em 20150203
Dim Rng como intervalo
Dim WorkRng As Range
Dim xInsertNum As Long
' Em Erro Continuar Próximo
xTitleId = "Kutools para Excel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Se WorkRng não for nada, saia do sub
xInsertNum = Application.InputBox("O número de linhas em branco que você deseja inserir ", xTitleId, Type:=1)
Se xInsertNum = False Então
MsgBox "O número de linhas em branco que você deseja inserir", vbInformation, xTitleId
Exit Sub
Se acabar
Definir WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Para xRowIndex = xLastRow Para 1 Etapa -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Se Rng.Value = "0" então
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Se acabar
Seguinte
Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
se você quiser inserir linhas em branco abaixo, tente isto

Sub Linha em Branco()
'Atualizar em 20150203
Dim Rng como intervalo
Dim WorkRng As Range
Dim xInsertNum As Long
' Em Erro Continuar Próximo
xTitleId = "Kutools para Excel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Se WorkRng não for nada, saia do sub
xInsertNum = Application.InputBox("O número de linhas em branco que você deseja inserir", xTitleId, Type:=1)
Se xInsertNum = False Então
MsgBox "O número de linhas em branco que você deseja inserir", vbInformation, xTitleId
Exit Sub
Se acabar
Definir WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Para xRowIndex = xLastRow Para 1 Etapa -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Se Rng.Value = "0" então
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
Se acabar
Seguinte
Application.ScreenUpdating = True
End Sub

O abaixo é para inserir linhas acima.
Este comentário foi feito pelo moderador no site
HI Sunny, esta macro funciona perfeitamente para mim; eu só tive que mudar a quantidade de linhas para 30 e mudar o 0 para o texto: "Closing Balance". Mas agora eu quero copiar e colar uma seleção de células com 30 linhas de altura nas 30 linhas em branco que foram inseridas por esta macro. Você pode sugerir uma nova macro (ou uma alteração a esta) para copiar e colar um intervalo em cada 30 linhas em branco. Eu nomeei o intervalo para copiar e colar 'modelo'.
Este comentário foi feito pelo moderador no site
Preciso de uma grande ajuda sobre este assunto. Tenho 2 colunas, na 1ª tenho os meus dados hora 01/01/2016 05:00:00, dias/meses/ano hora/minuto/segundos e na 2ª coluna os respetivos dados associados à hora.

Meu problema é que quero adicionar tempo de dados entre as linhas, pois tenho intervalos de dias. A 1ª linha é 01/01/2016 e a 2ª linha tem, por exemplo, 10/01/2016, então eu tenho 9 dias. e esse código não funciona para mim.

Ansioso para obter algum feedback, por favor! Obrigado
Este comentário foi feito pelo moderador no site
Você pode tentar este VBA

SubInserirValorEntre()
'Atualizar 20130825
Dim WorkRng As Range
Dim Rng como intervalo
Dim outArr As Variant
Dim dic como variante
Set dic = CreateObject("Scripting.Dictionary")
'Em Erro Continuar Próximo
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
intervalo = num2 - num1
ReDim outArr(1 para intervalo + 1, 1 para 2)
Para cada Rng em WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Seguinte
Para i = 0 Para intervalo
outArr(i + 1, 1) = i + num1
Se dic.Existe(i + num1) Então
outArr(i + 1, 2) = dic(i + num1)
Outro
outArr(i + 1, 2) = ""
Se acabar
Seguinte
Com WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Selecionar
Terminar com
End Sub


Ou se você tiver o Kutools for Excel, tente esta função:
Este comentário foi feito pelo moderador no site
Muito obrigado, tentei os dois, o 1º desde que tenho 500 linhas de dados, faço isso para todas as 500 linhas e não faz nada, acho que talvez tenha uma limitação nas linhas a serem usadas e quando seleciono apenas as primeiras 5 linhas, por exemplo, ele não cria as linhas ausentes, substitui as linhas pelos dados ausentes.

Outro problema que tenho é que meus dados de tempo também possuem o Dia/Mês/Ano HH:MM:SS
Este comentário foi feito pelo moderador no site
De 2 para 3, ele cria os dados faltantes que eu quero ok, mas o valor do dia 03/01/2016 é eliminado e tem alguns dados de tempo que são eliminados algo que eu também não quero
Este comentário foi feito pelo moderador no site
Desculpe, o código VBA não ajudou você, não consigo encontrar o método que pode funcionar para o formato de data e hora. Se você finalmente encontrar a solução, poderia me avisar? Obrigada.
Este comentário foi feito pelo moderador no site
Olá novamente Sunny, obtive algum sucesso na edição do código para isso (mudei a linha num1 para A2 e With WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


SubInserirValorEntre()
'Atualizar 20130825
Dim WorkRng As Range
Dim Rng como intervalo
Dim outArr As Variant
Dim dic como variante
Set dic = CreateObject("Scripting.Dictionary")
'Em Erro Continuar Próximo
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A2").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
intervalo = num2 - num1
ReDim outArr(1 para intervalo + 1, 1 para 2)
Para cada Rng em WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Seguinte
Para i = 0 Para intervalo
outArr(i + 1, 1) = i + num1
Se dic.Existe(i + num1) Então
outArr(i + 1, 2) = dic(i + num1)
Outro
outArr(i + 1, 2) = ""
Se acabar
Seguinte
Com WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Selecionar
Terminar com
End Sub



Mostro os gráficos, não funciona 100% porque não cria o tempo de A1 para A2
Este comentário foi feito pelo moderador no site
Aqui está a minha pergunta e é muito difícil, eu acho .. existe um código vba que adiciona uma nova linha abaixo de uma coluna filtrada e copia apenas as três primeiras células na nova linha adicionada e continua fazendo isso até que o usuário pare de bater "entrar" e não filtrar as células filtradas?
Este comentário foi feito pelo moderador no site
Sua pergunta é um pouco difícil e complexa, você pode colocar a pergunta em nosso fórum, talvez alguém possa te responder. https://www.extendoffice.com/forum.html
Este comentário foi feito pelo moderador no site
oi, eu só quero perguntar como adicionar linha se a condição é que adicionar linha deve ser feito quando uma célula já possui dados (é para uma pasta de trabalho do Excel com muitas planilhas :) Obrigado!
Este comentário foi feito pelo moderador no site
talvez este código vba possa ajudá-lo. Ele irá adicionar linhas se a linha acima não estiver vazia

Sub ajuda()
Contagem de escurecimento por muito tempo
Para contagem = ActiveSheet.UsedRange.Rows.count Para 1 Etapa -1
Se Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
Próxima contagem
End Sub
Este comentário foi feito pelo moderador no site
Oi, estou tentando usar este código para inserir uma linha quando os primeiros 4 dígitos de uma célula mudam (se isso for possível)

por exemplo,
2222
2222B
2223K


a linha será inserida após 2222B, pois o 3º número é um 3 e não um 2

Obrigado rapazes!!
Este comentário foi feito pelo moderador no site
Oi, Obrigado por isso, porém tenho outro cenário onde preciso inserir uma célula cingle sob o valor que não é zero. Aprecie qualquer sugestão.
Este comentário foi feito pelo moderador no site
Oi, Gina, acabei de encontrar o código para inserir linha em branco acima da célula que não está em branco, talvez alguém possa ajustá-lo para atender sua necessidade.

Sub Inserir_Linhas()
Dim LR Enquanto Longo, r Enquanto Longo

Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
Para r = LR Para 1 Etapa -1
If Len(Range("A" & r).Value) > 0 Então
Linhas(r).Inserir
Se acabar
Em seguida r
Application.ScreenUpdating = True
End Sub

vir de https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Este comentário foi feito pelo moderador no site
Olá, isso é muito útil. E se eu quisesse adicionar duas linhas abaixo e quisesse mais valores. Por exemplo, quero adicionar duas linhas após o valor 26/04/2019 e depois duas linhas após 03/04/2019, e a lista continua. Como faço para continuar adicionando ao vba? Desculpe ainda sou iniciante. Desde já, obrigado.
Este comentário foi feito pelo moderador no site
Oi, Safa, talvez você possa tentar o utilitário insert blank rows/columns do Kutools.
Este comentário foi feito pelo moderador no site
Sub Linha em Branco()
'Atualizar em 20150203
Dim Rng como intervalo
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Definir WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Para xRowIndex = xLastRow Para 1 Etapa - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
Se Rng.Value = "0" então
Rng.EntireRow.Insert Shift: = xlDown
Se acabar
Seguinte
Application.ScreenUpdating = True
End Sub


Preciso que isso funcione toda vez que coloco algo na célula, e também com mais variáveis. O que quero dizer é que, se eu colocar 2 na célula, preciso inserir 2 linhas e não apenas 1.
Este comentário foi feito pelo moderador no site
Eu preciso que a macro adicione linhas com base em uma coluna de quantidade onde se o qtd for maior que 1, ele insere o número de linhas -1. Se a quantidade for 5, insere 4 linhas abaixo dela e preenche os dados e altera a quantidade chamada de 5 para 1 em cada linha. Ignore todas as quantidades 1.
Este comentário foi feito pelo moderador no site
Diga-me o código onde eu quero adicionar um determinado número de linhas com base em um valor de célula. por exemplo, se a célula contiver o dígito 18, automaticamente 18 linhas devem ser adicionadas onde eu quiser e o restante da tabela/célula deve ser deslocado para baixo.
Este comentário foi feito pelo moderador no site
Muito obrigado por isso, realmente uma tremenda economia de tempo. Seria possível adicionar algum código que me permita inserir algum texto na nova linha. Por exemplo, estou inserindo novas linhas com base no valor de destino 'x', então quero adicionar o valor de texto 'y' na célula abaixo do valor de destino 'x'. Isso é possível?
Este comentário foi feito pelo moderador no site
Olá. A macro funciona para mim, mas existe uma maneira de sempre ter o intervalo/parâmetros sempre na coluna J sem que a caixa de entrada apareça? Eu gostaria que pule a etapa da caixa de entrada chegando. Além disso, certifiquei-me de que diretamente antes desta macro que a última linha da minha macro anterior seja Range("J:J").Selecione para certificar-se de que toda a coluna J já esteja selecionada.
Isso é o que eu tenho usado até agora.

Dim Rng como intervalo
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Clique em OK para continuar"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Definir WorkRng = WorkRng.Columns(1)
SendKeys "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Para xRowIndex = xLastRow Para 1 Etapa -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Se Rng.Value = "Nova Linha GMS" Então
Rng.EntireRow.Insert Shift:=xlDown
Se acabar
Seguinte


Eu tentei experimentar usando o comando SendKeys "~" entre algumas das etapas para tentar fazer com que ele pressione enter automaticamente quando a caixa de entrada aparecer, mas isso também não funcionou. Eu não tinha certeza de onde exatamente usar o comando SendKeys na macro ou se funcionaria com uma caixa de entrada!
Este comentário foi feito pelo moderador no site
por favor me ajude a ter um data.eu tenho um mês de dados de tempo, em que tenho que inserir linhas vazias de acordo com o tempo de escape
Este comentário foi feito pelo moderador no site
Oi, hr.babu08, desculpe a resposta atrasada. Eu acho que você quer inserir linhas em branco ou fazer uma marca para os dados de sequência ausentes, se assim for, você pode tentar Kutools for Excel's Find Missing Sequence Number feature.Aqui está o tutorial sobre o recurso: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf você deseja outros métodos para inserir linhas em branco para sequência ausente, visite:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Este comentário foi feito pelo moderador no site
Oi,
Este marco pode ser usado/alterado para células coloridas?
Eu preciso inserir pelo menos 10 linhas acima do final de cada série que são coloridas.
Thx!
Este comentário foi feito pelo moderador no site
Eu preciso adicionar linhas específicas com valores para conteúdos de células específicos, mas não tenho certeza de como fazer isso sem ter que fazer manualmente por mais de 3800 linhas

Ex: A1 = Nó1
Preciso ter uma linha inserida e ela inserir o valor Scanner
Digite outra linha e digite o valor Impressora
outra linha com o valor CD.
Etc.
Este comentário foi feito pelo moderador no site
Oi, Chris, aqui está um VBA que pode ajudá-lo a inserir automaticamente três linhas (Scanner, Printer, CD) quando o valor for igual a Node1.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Por favor, deixe-me saber se funciona para você.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL