EXCEL：创build/删除自动填充数据/函数与单元格中的数字匹配的行

我的问题是我有一个小公式，至less有2行，应该能够扩大到另一个单元格给定的数字。 例如最less2行 – 那么将行数设置为10的单元格。然后在第1行和第2行之间将会添加另外8行。使用自动填充的数据与使用自动填充选项向下拖动时的数据类似。 再次将数字从10减less到4时，则应该删除6行。

希望你能看到我在想什么，如果不清楚或不能满足一个问题的所有要求，我很抱歉。

Answer 1

1. 定义三个命名的单元格，比如FirstCell ， LastCell和HowMany 。 确保LastCell正好在FirstCell下方。

2. 创build一个Worksheet_Change处理程序。 如果Target范围是HowMany单元格，则在FirstCell和LastCell之间添加或删除单元格：

    If Target.Address = Me.Range("HowMany").Address Then If Not IsEmpty(Target.Value) Then If IsNumeric(Target.Value) Then If Target.Value >= 2 Then Dim i As Long Dim rows_before As Long rows_before = Me.Range("LastCell").Row - Me.Range("FirstCell").Row + 1 If rows_before < Target.Value Then For i = 1 To Target.Value - rows_before Me.Range("LastCell").Insert xlShiftDown Next ElseIf rows_before > Target.Value Then Me.Range(Me.Range("LastCell").Offset(-1, 0), Me.Range("LastCell").Offset(-(rows_before - Target.Value), 0)).Delete xlShiftUp End If Me.Range(Me.Range("FirstCell"), Me.Range("LastCell")).FillDown End If End If End If End If