对表VBA中的每个日期执行任务

Question

我有一个VBA，它根据表"Analysetable“中的值创建一个数组

Sub BestilAnalyser()

Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim OrderArray() As Variant
Dim xArray() As Variant


Application.ScreenUpdating = False


For i = 1 To Range("AnalyseTable").Rows.Count

    If Not IsEmpty(Range("AnalyseTable[Date]")(i)) And _
        WorksheetFunction.CountIf(Range("AnalyseTable[Bund]")(i).Offset(0, 1).Resize(1, 12), "=1") > 0 Then

        ReDim Preserve OrderArray(n)

        OrderArray(n) = i

        ReDim Preserve xArray(0 To 12 - 1, n)

        For j = 0 To 12 - 1
            If Range("AnalyseTable[Bund]")(i).Offset(0, 1 + j).Value = 1 Then
                xArray(j, n) = "x"
            End If
        Next j

        n = n + 1

    End If

Next i

Call WriteToOrderForm(OrderArray, xArray)

Call WriteEmail

For i = 0 To n - 1
    For j = 1 To 12
        If xArray(j - 1, i) = "x" Then
            Range("AnalyseTable[Bund]")(OrderArray(i)).Offset(0, j) = 2
        End If
    Next j
Next i

Application.ScreenUpdating = True

End Sub

所以我想要的是一些帮助是如何编写VBA，使它在列"AnalyseTableDate“中的每个日期的代码。相同的日期很可能会多次出现，然后针对所有1.nov、所有3.nov等等运行VBA。

我希望这是可行的。

Answer 1

也许是正常的for循环

Dim cel As Range
For Each cel In Range("AnalyseTable[Date]")
    Debug.Print cel.Value
    ' do some your code
Next cel