2017-10-09 28 views

回答

0

試試這個,

dim revs as variant, i as long 

with worksheets("sheet1") 
    revs = .range(.cells(2, "A"), .cells(.rows.count, "A").end(xlup)).values 
    for i = lbound(revs, 1) to ubound(revs, 1) 
     revs(i, 1) = revs(ubound(revs, 1) - i, 1) 
    next i 
    .cells(2, "A").resize(ubound(revs, 1), 1) = revs 
end with 

減法可能超出1,但你應該能夠糾正這一點。