尝试使用 Offset 执行计算给我错误（vba for excel）

Question

我想在 Excel 工作表上执行一些计算，该工作表的数据集组织如下。

A 列 --> 日期

B 列 --> 小时

C 列到 lastColumn --> 数据

其中一列的名称为“强度”。我想在最后添加一列，它将在小时为“00:00”的行中托管从 00:00 到 23:00 的“强度”值的总和，另一列将为我提供值“05:00”行减去“22:00”行的值。这是我的尝试：

Sub intensity_computations()

Dim k, l, intensity_column As Integer
Dim lastCol, lastRow As Long
Dim rng, start As Range

'I define the variables of the number of the last column and the last row:
lastCol = Cells(1, 1).End(xlToRight).Column
lastRow = Cells(1, 1).End(xlDown).Row

'I find the column number that corresponds to the column "intensity"
For k = lastCol To 1 Step -1
    If Not Cells(1, k).Find("intensity") Is Nothing Then
       intensity_column = k
    End If
Next k

'I create the column with the summed hourly values written at the the rows with hour "00:00:00"
For l = 2 To lastRow
    If Cells(l, 2).Value = "00:00:00" Then
        start_cell = Cells(l, intensity_column)
        rng = Range(start_cell, start_cell.Offset(23, 0))
        Cells(l, lastCol + 1) = Application.Sum(rng)
    End If
Next l

'I create the column with the subtracted value of hour "22:00" from the value of hour "05:00", which should be written at row with hour "00:00"
For l = 2 To lastRow
    If Cells(l, 2).Value = "00:00:00" Then
        Cells(l, lastCol + 2).Value = Cells(l, lastCol + 2).Offset(5, -2) - Cells(l, lastCol + 2).Offset(22, -2)
    End If
Next l

End Sub

不幸的是，我收到诸如“需要对象”或“不匹配”之类的错误，这取决于第一个 For 循环是放在第二个 For 循环之前还是之后。

有谁能帮忙解决这个问题吗？

Answer 1

为了解决这个问题，我找出了问题所在，并发布了它以帮助其他人记住，当您的代码看起来不错时，您正在处理的数据可能有问题。

在我的例子中，部分初始数据集丢失，因此由于错误，计算无法执行。

我必须在我的 IF 块中添加 On error Resume Next，而我认为将单元格的值存储到变量中会更好。这让我的代码继续运行。 我读到这不是在 VBA 中处理错误的最佳做法，但它暂时有效。

然后，我必须 Set 范围和 start_cell，正如 @SJR 提到的那样，并将 .value 添加到 Application.Sum。所以我的代码改动体现在这里：

For l = 2 To lastRow
    If Cells(l, 2).Value = "00:00:00" Then
        Set start_cell = Cells(l, intensity_column) 'I added "Set"
        Set rng = Range(start_cell, start_cell.Offset(23, 0)) 'I added "Set"
        Cells(l, lastCol + 1).Value = Application.Sum(rng) 'I added ".Value"
    End If
Next l

'I create the column with the subtracted value of hour "22:00" from the value of hour "05:00", which should be written at row with hour "00:00"

Dim sm5, sm22 As Variant 'I created two more variables

For l = 2 To lastRow
    If Cells(l, 2).Value = "00:00:00" Then
        On Error Resume Next 'I added a command how to handle the Error due to unclean data
        sm5 = Cells(l, lastCol-1).Offset(5, -2)
        sm22 = Cells(l, lastCol-1).Offset(22, -2)
        ActiveSheet.Cells(l, lastCol + 2).Value = sm5 - sm22
    End If
Next l