Question

我目前的代码出现问题，但我无法找到合适的解决方案。此代码的输入是8760个注册表，其值为from。例如，在B列中，有8760个值对应于一年中的小时数，在它前面我有每小时的值。因为我希望在每15分钟内获得该值，我需要将值除以4并粘贴它。所以我在B列中的小时数，在C列中的值，我希望在D列中将值除以4，这样我就会有8760 * 4个注册表。

Option Explicit
Sub test()

Dim i, j As Long
Dim valor As Long


For j = 0 To 8759
    For i = 1 To 4
       valor = Range("C" & 3 + j).Value
       Range("B" & 3 + j).Select
       Selection.Copy
       Range("H" & 3 + i + j * 4).Select
       ActiveSheet.Paste
       Range("I" & 3 + i + j * 4) = valor / 4
   Next
Next

End Sub

一段时间后，它会崩溃我的程序。它一直运行直到崩溃。

Answer 1

正如KazJaw所说......试试：

Range("B" & 3 + j).Copy Destination:= Range("H" & 3 + i + j * 4)

运行VBA代码时MS Excel崩溃

1 个答案: