excel - Excel：基于输入的数字动态列表

Question

我正在尝试根据硬编码输入制作一个数字列表。

假设我在 A1 中写“5”，那么我想在下面的列中列出数字 1、2、3、4、5。如果输入为 25，则列表将增加到 1-25，依此类推....

谁能帮我这个 ？

最好的祝福

标签： excelvba

Answer 1

你需要一个Worksheet_Change()事件：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then

        Range("A2:A1048576").ClearContents

        For i = 1 To Target.Value
            Cells(i + 1, 1).Value = i
        Next i

    End If

End Sub