Question

我需要在Excel中创建一个表单，其中会询问几个问题，然后在输入提交按钮时，所有数据都会被存储在后面，并且会再次显示一个空表单。

我开始编写代码但无法理解每次填写表单并单击提交按钮时如何选择空单元格。

下面是我试过的代码

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select = "=Sheet1!RC[1]"

End Sub

任何人帮助我都会给我错误

Answer 1

您收到错误是因为在使用.Select语句时尝试执行操作。作为一般规则，您应该始终尽量避免使用.Select语句。它们是不必要的，减慢了代码执行速度。试试这样的事情：

Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).FormulaR1C1 = "=Sheet1!RC[1]"

在Excel中创建动态表单

1 个答案: