|
'Application.Intersect 方法
'返回一个 Range 对象,该对象表示两个或多个区域重叠的矩形区域。
Sub test()
If Intersect([a1:d10], Selection) Is Nothing Then '注释:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等
MsgBox "没有交集"
Else
MsgBox Intersect([a1:d10], Selection).Address
Intersect([a1:d10], Selection).Select
End If
End Sub
Sub 隔行插入()
For i = 0 To Application.CountA(Columns(1)) * 2 Step 2
Intersect([a1:d2].Offset(i), [a2:d3].Offset(i)).EntireRow.Insert
Next
End Sub
|
|