数据分析那点统计学

《数据分析那点统计学》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Poweredbywishgale@gmail.com数据挖掘中客户分群的应用发布时间：2011-04-0318:57:13通过前期对系统内部的数据挖掘进行客户分群，并打上了相关的客户标签，这些客户标签对后期有什么应用呢？目前在做一个电信数据挖掘项目过程中，发现了电信客户觉得客户标签对他们的电信产品有很大的作用，希望能够找出相关的特征的用户，方便其后期进行精确营销。我们内部讨论后，结合客户的意见，主要从以下几个方面进行操作：一、用户分群1、通过用户心理行为问题及通信行为字段进行因子分析2、获取用户的驱动因子3、通过数据挖掘工具，进行

2、聚类分群4、给用户打上相应的客户标签：漫游压抑型、本地传统型、长漫需求型、低端尝新型、成功人士型、时尚商务型、成熟压力型、年轻爱玩型等一系列的标签二、用户群体特征分析以漫游压抑型为例，其占比如何？（12%）背景特征是怎么样？（高中以上学历为主、收入中等、月收入2000元以上、男性为主、年龄主要在25—45岁之间，以生产运输及白领为主），使用电信的业务情况是怎么样的？（天翼商旅套餐占比高达70%，入网时长超过2年，重入网率低、出差较多，漫游消费低，漫游需求受到压抑，ARPU均值仅为50块左右）数据业务特征是怎么样的？（新事物兴趣低，消

3、费理性，沟通、资讯、娱乐、商务等各类数据业务渗透力处于中下水平）办理渠道偏好如何？（办理次数中等，短信营业厅偏好较强）三、电信产品适配通过对电信某产品功能、应用场景和客户特征的分析选择目标客户群，实现客户和产品的适配。例如电信某产品A的用户定位是商旅人士、电话比较多的用户，此时可以根据系统里面的客户标签分群用户的特征：商旅人士、电话比较多等相关特征，找出相关传统商务型、成功人士型、时尚商务型等三个群体的营销用户名单。四、试点营销根据适配结果，输出目标用户的名单，对目标用户展开试点营销。五、营销效果评估并挑选效果明显用户群体进行全省推

4、广对营销活动进行评估，若营销效果明显，则进行全省宣贯推广，否则不进行推广。 从该项目的用途来看，数据挖掘能够真正地支撑到精确营销，减少营销成本，并且能提高产品运营效益。以上仅是个人观点，如有不对之处，请指正。如需转载，请注明出处。如何使用VBA一次罗列表中三省的员工姓名？发布时间：2011-04-0322:18:47如图为数据源：请罗列“四川省”、“湖南省”、“湖北省”三个省份员工的资料。VBA代码如下：Subtest() '定义变量 DimrngAsRange,RngTempAsRange,firstAddressAsString

5、 DimiAsByte,findCellAsRange,shAsWorksheet,shtnameAsString '将查找的目标设置为C2单元格到C列最后一个非空单元格赋予变量为rng Setrng=Range([C2],Cells(Rows.Count,"C").End(xlUp)) '循环赋予查找数组的每一个元素 Fori=0ToUBound(Array("四川省","湖南省","湖北省")) '开始查找数据，按值精确查找，不区分大小写   SetRngTemp=rng.Find(What:=Array("四川省","湖南省"

6、,"湖北省")(i),LookIn:=xlValues,lookat:=xlWhole,MatchCase:=False)   '如果找到目标，则赋予该目标的单元格地址给firstAddress       IfNotRngTempIsNothingThen         firstAddress=RngTemp.Address         Do         '变量findCell没有初始化，则需要初始化，否则合并查找到的数值           IffindCellIsNothingThen              S

7、etfindCell=RngTemp           Else              SetfindCell=Union(findCell,RngTemp)           EndIf         '查找下一个         SetRngTemp=rng.FindNext(RngTemp)         '循环到不为第一个找到的目标地址为止         LoopWhileRngTemp.Address<>firstAddress        EndIf  Nexti  '如果查找的内容不为空，则选择查找到内

8、容所在行，否则显示提醒  IfNotfindCellIsNothingThen    findCell.EntireRow.Select  Else    MsgBox"没有找到符合条件的数据!"     ExitSub  EndIf