vb缺少子程序函数或属性？！！

代码中错误较卜穗消多

dim a,b,c as integer 应写作 dim a as integer,b as integer ,c as integer

a,b,c=1 应写作a=1 : b=1: c=1

此外，族袭每个for 都要有一个next 来标志循环体的范围，否则是要型知报错的。

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

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

希望能帮上忙！

---