---
layout:     post   				    # 使用的布局（不需要改）
title:      市场调查EXCEL宏代码				# 标题 
subtitle:      市场调查统计表格                  #副标题
date:       2019-10-22 				# 时间
author:     Duter2016 						# 作者
header-img: img/post-bg-dutbs.jpg 	#这篇文章标题背景图片
header-mask: "0.1"                    # 博文页面上端的背景图片的亮度，数值越大越黑暗
catalog: true 						# 开启catalog，将在博文侧边展示博文的结构
istop: false            # 设为true可把文章设置为置顶文章
music-id:         # 网易云音乐单曲嵌入
music-idfull:       # 网易云音乐歌单嵌入
tags:								#标签
    - MS Office
---

```
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
```