Question

我有点新的excel vba，我需要对此进行一些更正，因为我得到一个错误，简而言之，我无法使用userform将任何数据添加到excel的下一行

这是我的代码

Private Sub CommandButton1_Click()
Dim ssheet As Worksheet


Set ssheet = ThisWorkbook.Sheets("Sheet1")

nr = ssheet.Cells(Rows.Count, 1).End(x1Up).Row + 1

ssheet.Cells(nr, 1) = CDate(Me.Label1)
ssheet.Cells(nr, 2) = Me.ComboBox1
ssheet.Cells(nr, 3) = Me.ComboBox2

End Sub

Answer 1

请尝试这个：

 Private Sub CommandButton1_Click()
    Dim ssheet As Worksheet

    Set ssheet = ThisWorkbook.Sheets("Sheet1")

    nr = ssheet.Range("A1048576").End(xlUp).Row + 1

    ssheet.Cells(nr, 1) = 1
    ssheet.Cells(nr, 2) = 2
    ssheet.Cells(nr, 3) = 3
    End Sub

Excel VBA将添加条目添加到下一行

1 个答案: