我有这个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，以便使其在col“ Analysetable [Date]”中的每个日期执行代码。同一日期很可能会显示乘以时间，然后对所有1. Nov，所有3. Nov等运行VBA。

我希望这是可行的。