嘗試插入空白行x次，x =單元格值

Question

我試圖插入特定數量的空白行，該行基於單元格中的值。 單元格中的該值是表中的計數函數。

我有一個“導入表”工作表，其中包含我的所有數據。 在表格旁邊，我有幾個計數功能，用於計數來自表格的一般類別。 例如，在“導入表”工作表的單元格J8（國內資產）上，單元格J9具有計數功能，在這種情況下為“ 11”。 現在，我希望在“分析”工作表中的特定位置插入11行。 在此工作表中，還有一些名稱，例如計數標題（國內權益）。 因此，在國內股權下，我希望插入行。 在分析表中，第一行已經在國內資產下創建了一個函數，因此在這種情況下，必須在該行下的第6行下插入新的空白行。

然后必須將單元格（A6，B6，C6，D6，E6）中已經存在的公式快速填充到新創建的白色行中。

我附上了2張圖片，希望能解決我的問題。

謝謝！

Answer 1

Range("A1").Resize(11, 1).Insert (xlShiftDown)

要么

Rows(1).Resize(11, 1).Insert (xlShiftDown)