Ir ao conteúdo
  • Cadastre-se

Copiar Linha - Excel


Renata2013

Posts recomendados

Este pode ser um dos caminhos!

Sub teste()

Worksheets("Plan2").Activate

Application.ScreenUpdating = False

For I = 1 To 10000

For J = 2 To 12

On Error Resume Next

Cells(I, J) = Application.WorksheetFunction.VLookup(Cells(I, 1), Worksheets("Plan1").Range("A1:L1000"), J, False)

Next J

Next I

Application.ScreenUpdating = True

End Sub

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!