刪除與插入指定範圍的列

myleoyes

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

GBKEE

回復 1# myleoyes

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

複製代碼

myleoyes

回復 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

回復 3# myleoyes

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

複製代碼

myleoyes

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