在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>然后向下移動一個單元格。