下面是我开发的代码。目标是从数据中减去"1“或"2”，这取决于分别是星期六还是星期日。列3包含短日期格式的日期，第5列包含相同的日期，但转换为"dddd“格式。

错误发生在行的for循环中。

if cells(i,5).Value = "Sat" Then

这里有趣的是，代码在没有“错误”的情况下运行--比如说，它只是跳过了if语句的复杂性，在这一行。

Sub DataChange()
    Dim i
    Dim n
    n = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 4 to n
        If Cells(i,5).Value = "Sat" Then
            Cells(i,3).Value = Cells(i,3).Value - 1
        End If
        If Cells(i,5).Value = "Sun" Then
            Cells(i,3).Value = Cells(i,3).Value - 2
        End If