将数据从用户窗体上的多个文本框传输到Excel工作表

我正试图从我的input屏幕上获取数据：

并将其转移到Excel工作表来存储数据。 这是我希望数据去的地方：

我目前使用这个代码：

ActiveCell=TextBox1.Value ActiveCell.Offset(0,1)=TextBox2.Value 

但我需要继续为每个文本框这样做，这似乎是非常低效的。

有没有一种更有效的方式将这些数据从用户表单传输到工作表？

任何帮助将不胜感激。 谢谢！

Answer 1

请尝试以下语法来遍历文本框

 for i=0 to n ' n =number of textbox values to copy activecell.offset(0,i)=userform2.controls("textbox"& i+1).value next i