excel - 使用文本框（V​​BA）的连续数字

Question

我得到的文本框给另一个文本框的问题是一个连续的数字。例子

这是我的用户表单

(Textbox1 ) (TextBox2)
Product:     Number:
Door car    4

这是我的excel表：

Product:    Number:
Door Car    1
Door Car    2
Door Car    3
Door Car    4

谢谢，对不起我的英语..

标签： excelvba

Answer 1

用户关注代码

Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim i As Long

Set sht = Worksheets("Sheet1")

    If Not IsNull(Me.TextBox2) Then
        For i = 1 To Val(Me.TextBox2)
            sht.Cells(i + 1, 1) = Me.TextBox1
            sht.Cells(i + 1, 2) = i
        Next i
    End If

Set sht = Nothing
End Sub

编辑：对于最后一行条目，请尝试以下代码。

Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim lasRow As Long
Dim i As Long

Set sht = Worksheets("Sheet1")
lasRow = sht.Cells(Rows.Count, "E").End(xlUp).Offset(1)

    If Not IsNull(Me.TextBox4) Then
        For i = 1 To Val(Me.TextBox4)
            sht.Cells(Rows.Count, "E").End(xlUp).Offset(1) = Me.TextBox4
            sht.Cells(Rows.Count, "E").End(xlUp).Offset(0, 1) = Me.ComboBox5
        Next i
    End If

Set sht = Nothing
End Sub