循环遍历项目列表，仅显示符合条件的项目

Question

我需要你的帮助来解决我在学习Excel VBA的过程中遇到的基本练习。所以，这是：

有一个过山车列表，其中一列代表过山车的名称，而另一列代表过山车的类型。我必须循环列表，直到空单元格，只选择那些类型为“木制”的过山车。 sub应以一个显示所有过山车名称的消息框结束，这些名称符合我们的“木制”标准（msgbox的每一行都包含一个名称）。

所以，任何人都可以建议新学员如何应对上述情况......？

Answer 1

这将在前1000行上运行，其中a列是过山车，b列是类型。如果你愿意，你可以将数字1000改为另一个数字或xldown。

system()

Answer 2

我想补充Balinti的回答。这将使您获得最后一行而不是硬编码1000

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ThisWorkbook.Worksheets("Sheet1")

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

然后你会有一个看起来像这样的循环

For i = 1 To LastRow 

Next i

MsgBox Rollers