用vba怎么做判断A和B日期相等 C列相减

ャ涣熊ヅ

用vba怎么做判断A和B日期相等 C列相减

lcluck2002

你举的例子好像不正确

lizhipei78

是不是模拟有错误，后面那个不是212-160？很简单的字典数组题目，JSA来一下

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, j&, r&
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    With Range("A1:E" & r)
        .Columns(5).Offset(1).Clear
        ar = .Value
    End With
    For i = 2 To UBound(ar)
        For j = 2 To UBound(ar)
            If ar(j, 2) = ar(i, 1) Then
                If j >= i Then
                    ar(j, 5) = ar(i, 4) - ar(j, 4)
                Else
                    ar(j, 5) = ar(j, 4) - ar(i, 4)
                End If
                Exit For
            End If
        Next j
    Next i
   
    [A1].Resize(UBound(ar), UBound(ar, 2)) = ar
    Beep
End Sub

gwjkkkkk

............