移动数据到指定位置,并删除原数据行
For i = 4 To 255 Step 1
Range("a" & i & ":" & "c" & i).Select
Selection.Cut
Range("K" & (i - 1) & ":" & "M" & (i - 1)).Select
ActiveSheet.Paste
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
Next