Ir ao conteúdo

Copiar Linha - Excel


Renata2013

Posts recomendados

Postado

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

  • Membro VIP
Postado

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

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...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!