Excel VBA和嵌套的ifs

Question

我試圖通過VBA在Excel 2007中刪除行，如果它滿足兩個要求：終止日期大於提供的終止日期（variablesTosToRemoveTerminatedMembersFrom），並且如果R列中有“ D”。

我使用的代碼不會給我錯誤，但是也不會刪除該行：

For i = lastRow To 2 Step -1
    If Range("R" & i).Value = "D" Then
        If Range("D" & i).Value > datesToRemoveTerminatedMembersFrom Then
            Rows(i).Delete
        End If
    End If
Next i

它們都自己工作，但如果我嵌套它們，則不會。

謝謝您的幫助

Answer 1

試試下面的代碼

For i = lastRow To 2 Step -1
    If UCase(Range("R" & i).Value) = "D" Then
        If CDate(Range("D" & i).Value) > CDate(datesToRemoveTerminatedMembersFrom) Then
            Rows(i).Delete
        End If
    End If
Next

Answer 2

我實際上不再需要這個了。 我正在設置電子表格應用程序的人員要求我刪除終止日期大於文件日期的每條記錄。

她的實際意思是將終止日期替換為“”，而不是刪除行。

感謝您的幫助，我最后使用的代碼是：

For i = lastRow To 2 Step -1

        If CDate(Range("D" & i).Value) > CDate(datesToRemoveTerminatedMembersFrom) Then
            Range("D" & i) = ""
        End If

Next i