☰

Excel: um Do-loop simples para copiar e colar e fazer uma tabela

tag-icon • tag-icon microsoft-excel vba macros copy-paste
Excel: um Do-loop simples para copiar e colar e fazer uma tabela

Desejo fazer um Do-loop simples (eu acho!) Para o seguinte: Meu programa simples funciona como eu quero, mas acho que há uma maneira mais fácil, pois desejo repeti-lo 1000 vezes. Talvez usando algum tipo de loop? Do-Loop ou não. Resumindo, quero:

  1. copie o conteúdo de A1
  2. Cole-os em B1
  3. copie a célula C1 (tem uma fórmula simples que atua em B1)
  4. copie o 'valor' (apenas) de C1 para D1 (que será uma tabela de tais valores)

Desejo fazer isso de A1 a A1000 e obter uma tabela de valores D1, D2, ..., D1000 (talvez como uma tabela quadrada). As células B1 e C1 permanecem fixas.

Meu programa está abaixo:

Sub PasteSpecial_Examples()

    Range("A1").Copy Range("B1")
    Range("C1").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues

    Range("A2").Copy Range("B1")
    Range("C1").Copy
    Range("D2").PasteSpecial Paste:=xlPasteValues

    Range("A3").Copy Range("B1")
    Range("C1").Copy
    Range("D3").PasteSpecial Paste:=xlPasteValues

    Range("A4").Copy Range("B1")
    Range("C1").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues


    Application.CutCopyMode = False

End Sub

Responder1

Você quer um loop For...Next simples:

Sub PasteSpecial_Examples()

  For i = 1 To 1000
    Range("A" & i).Copy Range("B1")
    Range("C1").Copy
    Range("D" & i).PasteSpecial Paste:=xlPasteValues
  Next i

  Application.CutCopyMode = False

End Sub

informação relacionada