求问VBA编程中出现错误：缺少子程序、函数或属性

部分代码有误，修正参考如下：

Public Sub 自动记录调查数据()

Dim temp As Integer

Dim count As Integer

temp=Sheets("数据表散庆哗").[A1].CurrentRegion.Rows.count

count = temp - 3 '

Sheets("问卷").Select

Range("A50:H50").Select

Selection.Copy '

Sheets("数据表").Activate

Rows(temp + 1).Select

ActiveSheet.Paste

Cells(temp + 1, 13).Value = count + 1

Sheets("冲行问卷").Select

Application.CutCopyMode = False

MsgBox "记差歼录已成功保存，谢谢！", vbOKOnly, "确定"

End Sub

希望能帮上忙！

出现这种情况，一般有两种可能。1、从网上找的程序，没有把相应的过程或函数一起找来。

2、对缓液子过程（或函数）的定义不一致。

例如：子过程test1做在某个工作表中，设定的是private属性。然后在模块中有一个全局程序逗哪轮test要调用其这个子过程，那么就会出现这种错误。更改方法：将这个子过程设置成全局的（public），山信并放在模块中，这样就可以解决了。

---