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

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = Range("C45:H50") '指定插入新的一列的範圍
If Target.Columns.Count = Rng.Columns.Count Then
'Columns.Count:傳回範圍內欄位的總數
'Rows.Count:傳回範圍內列位的總數
If Not Intersect(Rng, Target) Is Nothing And Target.Rows.Count = 1 Then
'Intersect 方法傳回 ***[Range 物件]***，此物件代表兩個或多個範圍重疊的矩形範圍。
' Target.Rows.Count = 1 '一列的範圍
If Target.Cells(1).Column = Rng.Cells(1).Column And Target.Cells(Target.Cells.Count).Column = Rng.Cells(Rng.Cells.Count).Column Then
'Target.Cells(1).Column = Rng.Cells(1).Column
'插入新的一列的第一個欄號=指定插入新的一列的範圍的第一個欄號
'Target.Cells(Target.Cells.Count).Column = Rng.Cells(Rng.Cells.Count).Column
'插入新的一列的最後一個欄號 = 指定插入新的一列的範圍的最後一個欄號
MsgBox Target.Address
End If
End If
End If
End Sub

複製代碼