宏移动数据验证下拉列表

Question

我有一个项目ID列表（示例：225-2646868-2454772），它们聚合到excel中的数据验证列表中。我有一个宏来构建，以选择给定的ID并执行项目ID。我在Loop函数周围编写了以下代码。这个过程显然＆＃34;工作＆＃34;因为它迭代了几次，但是没有超过列表上第一个ID的验证列表。产生相同的输出9-10次。

Sub generateOutput()
    Dim j As Integer
    Dim i As Integer
    Dim inputRange As Range
    Dim c As Variant

    Set inputRange = Evaluate(Range("activeCS").Validation.Formula1)
    For Each c In inputRange
        j = 3
        i = 4
        Range("endRange").ClearContents

        Do While Sheets("Budget").Cells(j, 2) <> ""
            If Sheets("Budget").Cells(j, 2) = 1 Then
                Sheets("Budget").Cells(j, 3).Copy
                Sheets("Output").Cells(i, 2).PasteSpecial xlPasteValues
                j = j + 1
                i = i + 1
            Else
                j = j + 1
            End If
        Loop
    Next c
End Sub