MS Excel сбой при запуске кода VBA

У меня в настоящее время проблема с моим кодом, и я не могу найти подходящее решение для него. Ввод этого кода - это 8760 регистров со значениями из него. Например, в столбце 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

Через некоторое время программа выйдет из строя. Он работает нормально до сбоя.

1 ответ

Как сказал KazJaw... попробуйте:

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

licensed under cc by-sa 3.0 with attribution.