如何循环到特定的命名范围？-Howtolooptillaspecificnamedrange?

I want to delete all rows between named ranges rbTop and rbBottom

我想删除命名范围rbTop和rbBottom之间的所有行

Range("rbBottom").Value = ""
Range("rbTop").Select
Do While (Selection.Offset(1, 0).Value <> "")
Selection.Offset(1, 0).EntireRow.Delete
Loop    

This works, but I want a slightly shorter way

这有效，但我想稍微缩短一下

Range("rbTop").Select
Do While (Selection.Offset(1, 0).Name <> "rbBottom")  // how to write this line ?
Selection.Offset(1, 0).EntireRow.Delete
Loop

1 个解决方案

Sub Cull()
Dim rng1 As Range
Set rng1 = Range(Range("rbtop"), Range("rbbottom"))
If rng1.Rows.Count > 2 Then rng1.Offset(1, 0).Resize(rng1.Rows.Count - 2, 1).EntireRow.Delete
End Sub