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

Question

необходимо скопировать формулу из предыдущей строки для автозаполнения вниз.

destsht("All PO Raw Data 1-18").Columns("V3:X" & destLR).FillDown


Dim wb As Workbook
Dim sht As Worksheet, destsht As Worksheet
Dim destLR As Long, LastRow As Long


Set wb = ThisWorkbook
Set sht = wb.Sheets("Open PO Raw Data")


Set destwb = Workbooks.Open("C:\Users\rc\Desktop\ALL PO RAW DATA 1-18  to present_copy.xlsx")
Set destsht = destwb.Sheets("All PO Raw Data 1-18")
destLR = destsht.Cells(Rows.Count, "A").End(xlUp).Row + 1
 MsgBox destLR


wb.ActiveSheet.Activate
LastRow = sht.Cells(Rows.Count, "A").End(xlUp).Row
sht.Range("A2:U" & LastRow).SpecialCells(xlCellTypeVisible).Copy destsht.Range("A" & destLR)

destsht("All PO Raw Data 1-18").Columns("V3:X" & destLR).FillDown

формула переходит к последней строке.Последняя строка кода дает мне ошибку.Я получаю сообщение об ошибке 438.Объект не поддерживает свойство.Я думаю, что мне может понадобиться смещение для строки вместо того, что я показываю в V3.

Answer 1

Мне пришлось пересмотреть мой код для подсчета строк после вставки видимых ячеек.Теперь он копирует весь путь вниз.

Dim wb As Workbook Dim sht As Worksheet, destsht As Worksheet Dim destLR As Long, LastRow As Long

Set wb = ThisWorkbook Set sht = wb.Sheets ("Open PO Raw Data")

Установить destwb = Workbooks.Open («C: \ Users \ rc \ Desktop \ ВСЕ РАДИО ДАННЫЕ 1–18 для представления. Xlsx») Установить destsht = destwb.Sheets («Все первичные данные ПО 1-18 ") destLR = destsht.Cells (Rows.Count," A "). Конец (xlUp) .Row + 1 'MsgBox destLR

wb.ActiveSheet.Activate LastRow = sht.Cells (Rows.Count,«A»). End (xlUp) .Row sht.Range («A2: U» & LastRow) .SellCells (xlCellTypeVisible).AutoFilter.Range.Columns (1) .SpecialCells (xlCellTypeVisible) .Cells.Count - 1 'MsgBox Number_of_Rows

destLR = destLR + Number_of_Rows' MsgBox destLR

* 101 * XR * XR"& destLR) .illDown