命名范围子集中的“对于每个单元格”？

我猜这是一个容易的。 我想循环遍历VBA中的命名范围，但是我想跳过范围中的第一个单元格。 谁能帮忙？

（PS：我是一个VBA新手，不是一个训练有素的开发人员，自己教学，这个论坛非常有用，但是如果你以为我没有试图find解决scheme，那么你就错了。

Answer 1

这是另一种方式

Sub AllButFirst() Dim rCell As Range Dim rRng As Range Set rRng = Sheet1.Range("namedrange") For Each rCell In rRng.Offset(1, 0).Resize(rRng.Rows.Count - 1, rRng.Columns.Count).Cells rCell.Value = "testing" Next rCell End Sub 

Answer 2

 dim i as long, r as range set r = range("name") for i = 2 to r.cells.count msgbox r.cells(i).value next 

Answer 3

@GSerg钉了这一个，但因为你有一个后续的问题，这样做使用For each ，这里有一种方法：

 first = True For Each c In r.Cells If Not first Then c.Value = "Testing" End If first = False Next