单元格交集VBA

nnsea

'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