在Excel中获取Vba，以将信息从用户表单输入到下一个空库

Question

我是使用vba的新手，我一直在尝试提出一种用户窗体，该窗体将获取给定的信息并将其输入到它下面的下一个空单元格中，这是我一直在尝试使用的代码，但是它失败了

       Dim iRow As Long
       Dim ws As Worksheet
       Set ws = Worksheets("Sheet1")
       Row = 1
       Range("A2").Value = Me.txtDate.Value
       iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
          SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

如果有人有解决方案，我将不胜感激

Answer 1

将值放入A2后，我不确定您要查找的内容到底是什么，但这可能可以替换您提供的所有代码。

Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Me.txtDate.Value

这等效于从列A（A1048576）的底部行开始，然后点Ctrl+<up arrow>然后向下移动一个单元格。