Excel 将数据从userform中的文本框插入单元格并循环到下一个单元格

如何将数据从userform中的文本框推送到单元格

我想循环遍历该列，允许用户在列中的每个单元格中输入数据，直到他们输入完数据为止

我尝试将计数器变量与列字母连接起来，但没有成功

Dim initCount作为整数
作为整数的Dim计数器
Dim VesselCellName作为字符串
initCount=2
计数器=initCount
计数器=计数器+1
VesselCellName=“A”&计数器
范围（VesselCellName）.Value=AddInvTxtBox.Text

每次运行此子单元时，首先将“计数器”设置为2，然后将+1添加到值中，以便始终循环通过同一单元格A3

如果只需要填充第一个空闲行，则可以“查找”最后一行

initCount=单元格（Rows.Count，1）.End（xlUp）.Row'单元格（Row#，col#）），
计数器=initCount+1

---

initCount将是column1（=A）中的最后一行，然后您将为下一个空闲行添加+1。

我将这样做：

---

你赢了我：）

Option Explicit

Private Sub AddItem_Click()
Dim sht As Worksheet
Dim rng As Range
Dim Counter As Long

Set sht = ThisWorkbook.Worksheets("Name of your worksheet 1")
Counter = sht.Range("A" & sht.Rows.Count).End(xlUp).Row 'find the index of the last used row in column A 
sht.Range("A" & Counter + 1).Value = UserForm1.TextBox1.Value

End Sub