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:
- copie o conteúdo de A1
- Cole-os em B1
- copie a célula C1 (tem uma fórmula simples que atua em B1)
- 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