Копировать результат формулы в последнюю ячейку в строке периодически прерывается - PullRequest
Новая
       8

Копировать результат формулы в последнюю ячейку в строке периодически прерывается

0 голосов
/ 04 марта 2020

У меня написан некоторый код VBA, который подготавливает для меня файл csv, чтобы я мог запускать на нем отдельные макросы для каждой модели, которая у меня есть. Проблема заключается в том, что время от времени столбцы содержат дублирующиеся данные, а не копируются результаты формулы.

Сначала я подумал, что это проблема с памятью, как будто я перезагружаюсь и запускаю ее. Опять же, он работал отлично. Сегодня утром, независимо от того, сколько раз я перезагружался, даже после загрузки в безопасном режиме на моем Ma c, он все равно делал те же ошибки в тех же столбцах.

происходит в те моменты, когда это не работает правильно, в макросе CopyFormulaDownToLastRowOfData. Следует копировать результаты формулы до конца; таким образом, результаты в каждой ячейке должны быть результатом для этой ячейки, но вместо этого она заканчивается результатом первой скопированной ячейки. Вот код для этого конкретного макроса 

Sub CopyFormulaDownToLastRowOfData()
  Dim LastRow As Long
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  With Range(ActiveCell, Cells(LastRow, ActiveCell.Column))
    .FillDown
    .Value = .Value
  End With
End Sub

Может кто-нибудь увидеть какие-либо проблемы с ним?

Заранее спасибо

...