Skip to content

Instantly share code, notes, and snippets.

@xxxx7
Last active August 29, 2015 14:26
Sub output1to100_7()
Range("A1") = 1
Range("A2").Formula = "=A1+1"
Range("A2").Copy
Range("A2:A100").PasteSpecial xlPasteFormulas
Range("A1:A100").Copy
Range("A1:A100").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment