返回列表下一主題上一主題發帖

刪除與插入指定範圍的列

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-7-10 11:25 | 只看該作者

刪除與插入指定範圍的列

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

Leov13.rar (9.47 KB)

Leov14.rar (10.09 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 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

複製代碼

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 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
      雖然可以使用,但總是拼湊出來的還是有勞良師指導
      正確的方式,糾正往後學習的方向真是辛苦你囉!!
      謝謝再三!!

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

4^#

發表於 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

複製代碼

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2010-7-12 21:00 | 只看該作者

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

TOP

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題