我现在有一个excel表，我现在想通过代码实现在每次填写数据之前复制本行到下一行，例如:第一次执行复制第一行到第二行，然后填充数据，第二次执行时复制第二行到第三行，一次类推……
------解决方案--------------------------------------------------------
只要你是要一行一行地输入数据，下面的这段代码执行时可以将最后一行复制到下一行中：
- VBScript code
Sub CopyLine() Dim i&, j& i = WorksheetFunction.CountA(Columns(1)) For j = 1 To Range("IV" & i).End(-4159).Column Cells(i + 1, j).Formula = Cells(i, j).Text NextEnd Sub