Advertisement
Guest User

Untitled

a guest
Feb 21st, 2019
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. =1+4-2
  2.  
  3. Range("a1:a4").Select
  4. Selection.Copy
  5. Range("a1").Select
  6. Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
  7. False, Transpose:=False
  8. Range("a1:a4").Select
  9. Selection.ClearContents
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement