VBA学习笔记之Application.intersection⽅法'Application.Intersect ⽅法
'返回⼀个 Range 对象，该对象表⽰两个或多个区域重叠的矩形区域。vba自学好学吗
PS:Is Nothing ⽤于判断对象是否存在，对象可以是⼯作簿，⼯作表，单元格区域等
教学代码：
1Sub test()
2If Intersect([a1:d10], Selection) Is Nothing Then'注释：Is Nothing ⽤于判断对象是否存在，对象可以是⼯作簿，⼯作表，单元格区域等 3MsgBox"没有交集"
4Else
5MsgBox Intersect([a1:d10], Selection).Address
6        Intersect([a1:d10], Selection).Select
7End If
8End Sub
9
10
11Sub隔⾏插⼊()
12For i = 0To Application.CountA(Columns(1)) * 2Step2
13    Intersect([a1:d2].Offset(i), [a2:d3].Offset(i)).EntireRow.Insert
14Next
15End Sub
1Sub⾃⼰写隔⾏插⼊()
2
3For i = Application.CountA(Columns(1)) - 1To1Step -1
4    Rows(i).Insert
5Next i
6End Sub
7
8Sub删除空⾏()
9For i = 1To Application.CountA(Columns(1))
10If Cells(i, 1) = ""Then
11'If Cells(i, 1) Is Nothing Then 这句是⽆⽤的，因为Is Nothing是判断对象是否存在⽽不是判断对象的值是否为空！
12    Rows(i).Delete
13End If
14Next

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。