苹果/安卓/wp
积分 322, 距离下一级还需 128 积分
权限: 自定义头衔, 签名中使用图片
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡下一级可获得
道具: 抢沙发
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
哼哼签到天数: 11 天连续签到: 1 天[LV.3]偶尔看看II
Excel菜鸟求助(☆▽☆) ，现有一批量表调查卷，已经做好了数据录入，请问怎样将数据做成统计表？
就是统计每个问题的每个选项的回答人数(✿◡‿◡)。
支持楼主：、
购买后，论坛将把您花费的资金全部奖励给楼主，以表示您对TA发好贴的支持
载入中......
附件动画的思路供参考
本帖被以下文库推荐
& |主题: 182, 订阅: 11
附件请上传
统计完各个问题的回答人数后还有后续操作吗？
16:20:09 上传
如图，ABCD对应 四个问题， A1 A2&&A3 A4对应A问题的答案， 每个人在各个题目选择的答案下面输入1，然后求和。
热心帮助其他会员
总评分:&经验 + 100&
论坛币 + 20&
青菜木 发表于
统计完各个问题的回答人数后还有后续操作吗？
如图，ABCD对应 四个问题， A1 A2&&A3 A4对应A问题的答案，&&...其实SPSS更合适做问卷分析一些
附件动画的思路供参考
18:57:16 上传
总评分:&经验 + 100&
论坛币 + 40&
古墓派预测分支
可以用数据透视表，也可以用excel的数据分析插件，主要做频数分析。
设存放数据的工作表名称为“SHEET1”，新建一个工作表SHEET2用于查询数据，如下：
你只需要输入想要查询的列、值即可得到统计结果
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
论坛法律顾问：王进律师苹果/安卓/wp
积分 350, 距离下一级还需 100 积分
权限: 自定义头衔, 签名中使用图片
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡下一级可获得
道具: 抢沙发
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
开心签到天数: 682 天连续签到: 7 天[LV.9]以坛为家II
新手莫见怪，请问各位怎么用wind的excel插件下载同一个股票代码不同年度的数据？
在客户端下载我会，但是考虑到excel插件更方便，所以想学习，请各位指教！
支持楼主：、
购买后，论坛将把您花费的资金全部奖励给楼主，以表示您对TA发好贴的支持
载入中......
请问楼主这个问题后来是怎么解决的呢？我现在进入wind终端下载时，提示说没有安装Excel插件，该怎么解决的？求解，万分感谢！
笨鸟也学习 发表于
请问楼主这个问题后来是怎么解决的呢？我现在进入wind终端下载时，提示说没有安装Excel插件，该怎么解决的？ ...修复excel插件，量化-修复插件-修复excel插件
请问一下楼主，如何在客户端上下载股票的面板数据呢？没有找到时间的选择。
<font color="#4pvb 发表于
修复excel插件，量化-修复插件-修复excel插件修复之后，EXCEL仍然没有wind选项，请问要怎么办
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
论坛法律顾问：王进律师苹果/安卓/wp
积分 11092, 距离下一级还需 7208 积分
权限: 自定义头衔, 签名中使用图片, 隐身, 设置帖子权限, 设置回复可见, 签名中使用代码
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡, 抢沙发, 提升卡, 沉默卡, 千斤顶, 变色卡下一级可获得
道具: 置顶卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
开心签到天数: 7 天连续签到: 1 天[LV.3]偶尔看看II
附加小技巧：快速添加、删除行或者列
快速添加：Ctrl+shift+=
快速删除：Ctrl+ -
支持楼主：、
购买后，论坛将把您花费的资金全部奖励给楼主，以表示您对TA发好贴的支持
载入中......
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
论坛法律顾问：王进律师苹果/安卓/wp
积分 266, 距离下一级还需 184 积分
权限: 自定义头衔, 签名中使用图片
道具: 彩虹炫, 涂鸦板, 雷达卡, 热点灯, 金钱卡, 显身卡, 匿名卡下一级可获得
道具: 抢沙发
购买后可立即获得
权限: 隐身
道具: 金钱卡, 彩虹炫, 雷达卡, 热点灯, 涂鸦板
开心签到天数: 257 天连续签到: 1 天[LV.8]以坛为家I
因为是VBA 新手，程序是自己编的，有一些明显不完善的地方，就拿出来和大家分享交流学习吧。觉得还能看，大家就多多回复捧场就好
程序说明：现有600xxx-600xxx的两个文件夹的文件。文件夹一中，文件名为“现任管理层[600xxx.SH].xls&，文件二中为”离任高管[600xxx.SH].xls&现希望：1 将现任管理层的表格中A列前添加一列并填写“现任管理层”字样，添加一列输入股票代码；离任高管的表格中类同2 批量汇总上述两个文件夹中修改后的内容到一个表格内
缺点：文件命名需要有规律，此处为数字的递增规律，同时，因为有断点所以数字不连续的地方需要分开进行两次程序操作。
有好的地方的话大家可以借鉴，可以改进的地方望各位不吝赐教，多谢！
Public Sub huizong() t =1 Range(&a1&).Select Fori = 600350 To 600590 d1 =&D:\常使用文件\Documents\Downloads\现任管理层[& & Str(i) & &.SH].xls& arr1= Split(d1, & &)&&d =arr1(0) & arr1(1) Workbooks.Open d&&a1= &D:\常使用文件\Documents\Downloads\离任高管[& & Str(i) & &.SH].xls& arr2 = Split(a1, & &)&&a =arr2(0) & arr2(1)&&e1= &现任管理层[& & Str(i) & &.SH].xls& arr3 = Split(e1, & &)&&e =arr3(0) & arr3(1)&&b1= &离任高管[& & Str(i) & &.SH].xls& arr4 = Split(b1, & &)&&b =arr4(0) & arr4(1) Workbooks(e).Activate& &'选定现任表格 Range(&A5&).Select Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Range(&B5&).Select Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove&&'插入两列 j =4& &DoWhile (Cells(j + 2, 5) Like &*& & &/& &&*&) Or (Cells(j + 1, 5) Like &*& & &/& &&*&) Or (Cells(j, 5) Like &*& & &/& &&*&) Or (Cells(j + 3, 5) Like &*& & &/& &&*&)&&Cells(j, 1) = Str(i)&&Cells(j, 2) = &现任&& &j= j + 1&&Loop& & s = j - 1& &'以上为填充两列，s为需要粘贴的行数& & Cells(t, 1).Select& & Range(Cells(1, 1), Cells(s, 10)).Select& & Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select& & Selection.Copy& & Workbooks(&汇总表.xlsm&).Activate& & ActiveSheet.Paste& & t = t + s& & Cells(t, 1).Select& &c1 = &现任管理层[& & Str(i) & &.SH].xls&& &arr5 = Split(c1, & &)& & c= arr5(0) & arr5(1)& &Application.CutCopyMode = xlCut& &Workbooks(c).Close savechanges = True& && && &'关闭已经打开的工作簿& &Cells(t,1).Select&&Workbooks.Open a& && && &'选定离任表格 Workbooks(b).Activate& &Range(&A5&).Select Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Range(&B5&).Select Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove& &'插入两列k = 2& &DoWhile (Cells(k + 1, 5) Like &*& & &-& &&*&) Or (Cells(k, 5) Like &*& & &-& &&*&)&&Cells(k, 1) = Str(i)&&Cells(k, 2) = &离任&& &k= k + 1&&Loop& &u= k - 1& && && &&&'以上为填充两列，u为需要粘贴的行数&&Range(Cells(1, 1), Cells(u, 11)).Select& &Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select& &Selection.Copy& &Workbooks(&汇总表.xlsm&).Activate& &ActiveSheet.Paste& & t= t + u& &g1 = &离任高管[& & Str(i) & &.SH].xls&& &arr6 = Split(g1, & &)& & g= arr6(0) & arr6(1)& &Application.CutCopyMode = xlCut& &Workbooks(g).Close savechanges = True& && && &'关闭已经打开的工作簿& &Cells(t + 1, 1).Select NextEnd Sub
支持楼主：、
购买后，论坛将把您花费的资金全部奖励给楼主，以表示您对TA发好贴的支持
载入中......
观点有启发
总评分:&经验 + 20&
学术水平 + 2&
饿死在金字塔顶的人
本帖最后由 客初 于
12:11 编辑
工具栏上有插入代码的选项，可以利用这一工具排版代码，这样比较美观。
另外，不管求助还是分享，都请上传附件或模拟一个附件，这样方便会的坛友给你提供帮助，否则会很麻烦。
客初 发表于
工具栏上有插入代码的选项，可以利用这一工具排版代码，这样比较美观。
另外，不管求助还是分享，都请上传 ...多谢指出！
好像没有吧
一级伯乐勋章
一级伯乐勋章
初级热心勋章
初级热心勋章
初级学术勋章
初级学术勋章
初级信用勋章
初级信用勋章
中级学术勋章
中级学术勋章
中级热心勋章
中级热心勋章
中级信用勋章
中级信用勋章
高级学术勋章
高级学术勋章
高级热心勋章
高级热心勋章
高级信用勋章
高级信用勋章
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
论坛法律顾问：王进律师