Public Sub 问卷设计1()
Dim icount As Integer
‘把工作表的记录数赋予icount
icount = Sheets(“问卷设计1″).[A1].CurrentRegion.Rows.Count
‘选择问卷设计1问卷工作表
Sheets(“问卷设计”).Select
‘选择保存数据的 区域，然后COPY
Range(“A33:K33″).Copy
‘激活问卷设计1工作表
Sheets(“问卷设计1″).Activate
‘选择问卷设计1工作表最后一条记录的 下一行区域
Rows(icount + 1).Select
‘复制数据
ActiveSheet.Paste
‘实现记录自动编号
Cells(icount + 1, 11).Value = Cells(icount, 11).Value + 1
‘再次选择问卷设计1工作表
Sheets(“问卷设计1″).Select
‘把选copy的区域释放
Application.CutCopyMode = False
‘输出数据保存完成信息
MsgBox “记录保存成功，请继续调查问卷!”, vbOKOnly, “确定”
End Sub
版权声明：本文由 Duter2016 在 2019年10月22日发表。本文采用CC BY-NC-SA 4.0许可协议，非商业转载请注明出处，不得用于商业目的。
文章题目及链接：《市场调查EXCEL宏代码》
