如何遍历多个行并根据标记的行调用vba

Question

我有一个表格，可以检索用户可用报告的列表。然后，用户在他们希望生成的报告旁边的特定列中输入“X”。

如果用户输入了'X'，我如何遍历每个可用行并计算出来？

A          |         B          |       C          |  D
001        | REPORT A           |      fnReportA   |  X
002        | REPORT B           |      fnReportB   |  <NULL>
003        | REPORT C           |      fnReportC   |  <NULL>

OR

如何在检索列表时遍历每一行，并在链接到vba的每一行的末尾放置一个BUTTON以生成报告？

Answer 1

For Each将执行您要查找的搜索类型

一个简单的例子：

Option Explicit

Sub testit()
Dim c As Range
For Each c In Range("D2:D10").Cells
    If c.Value = "X" Then
        Debug.Print c.Row
    End If
Next
End Sub

这将打印每个具有X的单元格的行号。