Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. Dim aCell as Range
  2. For Each aCell In Range("A1:A9999").Cells
  3.  
  4. 'appends prefix to value of each cell
  5. aCell.Value = "CC_" & aCell.Value
  6.  
  7. Next aCell
  8.  
  9. Range("A1:A9999").Value = "CC_" & Range("A1:A9999").Value
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement