2017-10-09 14 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でアウトかもしれないが、あなたはそれを是正することができるはずです。

関連する問題