請問Excel函數中的Cells的相關問題？謝謝了

x = InputBox("插入多少個空行？") '問妳插入多少行，妳輸入的數字賦值給X

For i = 1 To x ' i為1-X之間的數字，每次在執行完NEXT i那句之後就+1

Cells(i * 6, 1).Select ' 選定 第壹列的第i*6行那個單元格

Selection.EntireRow.Insert ' 插入壹行

Next i ' i的值變為原來的數值+1重新執行上面的兩句，直到i=X為止停止執行

End Sub

總體的意思是每隔6行插入壹個空行，插入幾次由妳定，在該宏執行之初由妳手工錄入。