[已解决]幫忙簡化代碼【簡單的】

010203400

我是菜鳥，但直覺告訴我，以下錄制的代碼可以簡化的，請懂的人指點。


    Columns("C:C").Select
    Selection.Cut
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:C").Delete
    Columns("E:E").Delete

最佳答案

月排行榜 / 总排行榜

xdragon

2013-7-25 15:26

Range("C:C").Cut
Range("A:A").Insert
Range("C:C").Delete
Range("E:E").Delete

跳转到最佳答案楼层

xdragon

Range("C:C").Cut
Range("A:A").Insert
Range("C:C").Delete
Range("E:E").Delete