麻辣家族討論版版 - Powered by Discuz! Board

標題: 刪除與插入指定範圍的列 [打印本頁]

作者: myleoyes 時間: 2010-7-10 11:25 標題: 刪除與插入指定範圍的列

各位前輩你們好!
　　    前輩!問題一, 刪除指定範圍的列
            如附檔案Leov13
            問題二, 插入指定範圍的列
            如附檔案Leov14
      請知道的前輩,不吝賜教謝謝再三!!

作者: GBKEE 時間: 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

複製代碼

作者: myleoyes 時間: 2010-7-11 08:18

回復 2# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!插入程式你遺漏了下拉上一列資料
      小弟熬夜拼湊如下
      Sub 插入()
         Dim R As Range
         Set R = ActiveCell
         If R.Column >= 5 And R.Column <= 31 Then
         If R.Row > 1 And Cells(Rows.Count, R.Column).End(xlUp).Row >= R.Row Then
         Range("E" & R.Row & ":AE" & R.Row).Insert
         End If
         Set R = ActiveCell
         Range("E" & R.Row - 1 & ":AE" & R.Row - 1).Copy
         ActiveCell.Select
         ActiveSheet.Paste
         Application.CutCopyMode = False
         End If
      End Sub
      雖然可以使用,但總是拼湊出來的還是有勞良師指導
      正確的方式,糾正往後學習的方向真是辛苦你囉!!
      謝謝再三!!

作者: GBKEE 時間: 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

複製代碼

作者: myleoyes 時間: 2010-7-12 21:00

回復 4# GBKEE
GBKEE前輩你好!
　　　　良師!謝謝!辛苦你囉!!
謝謝再三!!

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)