Shift cells right

D

Don Guillett

Is there a way to move cells whose contents begin with '0A' from Col B
to Col C?

option explicit
sub moveem()
dim c as range
for each c in range("a2:a22")
if ucase(left(c,2))="0A" then
c.offset(,1)=c
c=""
end if
next c
end sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Shift cells 1
Insert row 1
Unique cells 4
Detete matching cells 1
Eliminate non-matching cells 10
Finding matching cells 1
Finding matching cells 1
tiny discrepancies in fixed-point numbers 3

Top