Блог

Я пытаюсь использовать автозаполнение для копирования ячеек вниз, оно отлично работает для записей строкового типа, но числовые числа заполняют серию.

Перед запуском кода:

После выполнения кода:

Я хочу, чтобы он заполнял 0.

Вот мой код:

 sh.Range("G" amp; lastR1, PreviousColumn amp; lastR1).AutoFill _
   Destination:=sh.Range("G" amp; lastR1, PreviousColumn amp; lastR)
 

Используйте перенос значений:

 With sh
   .Range("G" amp; lastR1, PreviousColumn amp; lastR).Value = _
   .Range("G" amp; lastR1, PreviousColumn amp; lastR1).Value
End With
 

Чтобы заполнить нули, просто установите значение равным нулю вместо использования автозаполнения. Используйте одну строку кода, [a2:a5] = [a1].value например, чтобы задать диапазону ячеек одинаковое значение.