刪除與插入指定範圍的列

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-7-10 14:50 | 顯示全部帖子

回復 1# myleoyes

Sub Ex()
Dim R As Range
Set R = ActiveCell
If R.Column >= 5 And R.Column <= 31 Then '限制於 E:AE中
If R.Row > 1 And Cells(Rows.Count, R.Column).End(xlUp).Row >= R.Row Then '限制於第二列到最後有資料的列中
Range("E" & R.Row & ":AE" & R.Row).Insert '插入 E:AE 列
'Range("E" & R.Row & ":AE" & R.Row).Delete '刪除 E:AE 列
End If
End If
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-7-11 16:20 | 顯示全部帖子

本帖最後由 GBKEE 於 2010-7-11 16:21 編輯

回復 3# myleoyes

Sub Ex()
Dim R As Range
Set R = ActiveCell
If R.Column >= 5 And R.Column <= 31 Then '限制於 E:AE中
If R.Row > 1 And Cells(Rows.Count, R.Column).End(xlUp).Row >= R.Row Then '限制於第二列到最後有資料的列中
With Range("E" & R.Row & ":AE" & R.Row)
.Insert '插入 E:AE 列
.Copy .Offset(-1)
End With
End If
End If
End Sub

複製代碼

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。