插入指定数目的行数

   大家好，一位朋友请教了用VBA知识插入任意行的问题，我们看一下具体的情况。如下图：

   现在想根据A列单元格里的数字，在其单元格下方插入该数字的行，运行结果如下图：

   代码如下：

---

   Sub 插入行()
   Dim i As Integer
   Dim c As Integer
   For i = 5 To 1 Step -1
       For c = 1 To Range('a' & i)
       Rows(i 1).Insert
       Next
   Next
   End Sub

---

有任何疑问欢迎在下方留言提问~

快捷查看