在第n列上移動每個第n個單元格

Question

我正在嘗試使用VBA編寫腳本來將信息從單元格B2移動到單元格A1，並且我無法弄清楚如何在沒有明確輸入信息的情況下如何操作。這是不實際的，因爲我有1200個單元來處理，這將是600個項目移動。我要做的項目代碼如下：

Range("B2").Select 
Application.CutCopyMode = False 
Selection.Cut Destination:=Range("A2") 
Range("B4").Select 
Selection.Cut Destination:=Range("A4") 
Range("B6").Select 
Selection.Cut Destination:=Range("A6") 
Range("A6").Select 

有關使用for循環或其他方法的任何建議嗎？謝謝。

Answer 1

如果在同一行，你可以試試這個：

For i = 2 To lastrow Step 2 '~~> supply last row here 
    Range("B" & i).Cut Range("A" & i) 
Next 

這削減B2至A2多達您所感興趣的最後一排。