下面是程式碼分享

Sub yu()

Dim sr As Range 申明資料型別變數

For Each sr In Range("a1", Range("a1").End(xlDown)) 動態獲取區域

Select Case sr 單條件判斷，判斷條件

Case 2012 條件1

sr.Range("a1:c1").Cut Cells(Rows.Count, "e").End(xlUp).Offset(1, 0) 條件成立將內容移動到指定位置

Case 2013 條件2

sr.Range("a1:c1").Cut Cells(Rows.Count, "i").End(xlUp).Offset(1, 0)條件成立將內容移動到指定位置

Case 2014 條件3

sr.Range("a1:c1").Cut Cells(Rows.Count, "m").End(xlUp).Offset(1, 0)條件成立將內容移動到指定位置

End Select 結束條件判斷

Next 迴圈達到結束

End Sub