VBA Excel：根据用户输入填写单元格

Question

我需要创建无限可变范围的单元格（水平）。我想要的想法是，如果用户在30中（例如）键入一个textBox，则从0开始填充顶行的单元格，直到29为止。我真的不确定如何解决这个问题。任何帮助表示赞赏。

Answer 1

考虑：

Sub luxation()
    Dim N As Long
    N = Application.InputBox(Prompt:="Enter value", Type:=1)
    If N > Columns.Count Then
        N = Columns.Count
    End If

    For i = 1 To N
        Cells(1, i) = i - 1
    Next i
End Sub