excel怎么把每一行中重复值c 清空输出的一行

来源：蜘蛛抓取(WebSpider) 时间：2015-09-29 17:27 标签： 删除一行重复单元格
如何使用VBA来统计Excel2003表格中的重复项
学习Excel表格，你说你不懂函数还可以理解，但是连基本的VBA都不会用的话，我只能呵呵一笑了。VBA是Excel表格中强大的功能，它能完成很多复杂的计算操作，下面，以统计重复项为例来进行VBA的操作示例。
打开Excel表格，在单元格输入一些字母，为之后的统计做准备。
鼠标右键点击sheet1，选择查看代码。
将下面的代码复制进去，每一步都有注释不难理解，这篇教程的目的是让你会使用VBA的基本操作，复制完了，点击下图红色方框内的按钮，运行程序。
返回到Excel表格，可以清楚的看到统计结果，准确无误。
Sub 统计()
y1 = 1 '开始列为A列（在EXCEL中，A列的列号为1）
y2 = 4 '结束列为D列（在EXCEL中，D列的列号为4）
n1 = 255 '辅助列
n2 = y2+2 '结果显示列，结果显示在源数据列的右侧，中间间隔一列。
For i = y1 To y2
s = Cells(65536, y1).End(xlUp).Row '各列数据的数量
Range(Cells(1, i), Cells(s, i)).Copy Cells(x, n1) '把所有数据复制到辅助列中
Cells(1, n1) = &数据&: Cells(1, n2 + 1) = &次数&
'使用&高级筛选&功能将不重复数据显示在&结果显示列&中
Columns(n1).AdvancedFilter 2, , Cells(1, n2), 1
s1 = Cells(65536, n2).End(xlUp).Row
'下面代码用COUNTIF函数统计重复次数
For i = 2 To s1
Cells(i, n2 + 1) = WorksheetFunction.CountIf(Columns(n1), Cells(i, n2))
'消除辅助列内容
Columns(n1) = &&
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------后使用快捷导航没有帐号？
查看: 4121|回复: 2
求：怎样提取一行中重复的数据？？？
主题帖子积分
五段, 积分 2523, 距离下一级还需 2277 积分
五段, 积分 2523, 距离下一级还需 2277 积分
精华0注册时间
本帖最后由 轉裑ｄē距蘺 于
15:25 编辑
相信有很多彩友和我一样，在自制的个别分析表中有很多重复数据，那么怎样提取一行中的重复数据呢？请大师们解一解，先谢过。详见下图及附件。
想提取行中的重复数据.jpg (53.57 KB, 下载次数: 38)
12:40 上传
(注意，我是要一行中的重复数据，不要一列中的重复数据)
另外还需特别注意，2010以下版本的Excel千万不要打开我的表格，因为我的是2010版本的。
(119.99 KB, 下载次数: 101)
12:41 上传
点击文件名下载附件
主题帖子积分
精华2注册时间
(186.79 KB, 下载次数: 312)
15:11 上传
点击文件名下载附件
用了笨办法做了提取
发送6695888获取【3D胆码】
发送6695888获取【3D杀二码】
发送6695888获取【试机后一语定胆】
发送6695888获取【3D试机后金3注】
发送6695888获取【3D试机后预测】
发送6695888获取【试机号一语胆码】
发送6695888获取【单选5注】
发送6695888获取【试机后大江分析】
发送6695888获取【太湖钓叟三字诀】
发送6695888获取【试机后五码复式】
发送6695888获取【试机后文中看法】
发送6695888获取【3D六码复式】
主题帖子积分
五段, 积分 2523, 距离下一级还需 2277 积分
五段, 积分 2523, 距离下一级还需 2277 积分
精华0注册时间
105.gif (22.62 KB, 下载次数: 12)
17:24 上传
谢谢清平乐大师，这么快就作好了，太谢谢啦！
社区活动先锋
社区活动先锋
五一劳动奖章
乐彩荣誉勋章
乐彩荣誉勋章
乐彩荣誉勋章
乐彩荣誉勋章
服务我国公益事业，将乐彩进行到底
&&&本社区所有言论，纯属发表者个人意见，与乐彩网立场无关电脑教程子分类苹果/安卓/wp
苹果/安卓/wp
积分 17, 距离下一级还需 7 积分
权限: 设置帖子权限
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
如题，在excel中如何把两列数据里的相同数据找出来，每列有500个数据。求赐教。。。
载入中......
假设将数据放在AB列，在C列输入"=vlookup(B1,$A$1:$B$500,2,FASLE)",然后拖到C500单元格，C列有数值的说明B列同一行单元格在A列找到相同值
本帖被以下文库推荐
& |主题: 177, 订阅: 6
假设将数据放在AB列，在C列输入&=vlookup(B1,$A$1:$B$500,2,FASLE)&,然后拖到C500单元格，C列有数值的说明B列同一行单元格在A列找到相同值
热心帮助其他会员
总评分:&经验 + 20&
论坛币 + 20&
热心指数 + 1&
gerry111 发表于
假设将数据放在AB列，在C列输入&=vlookup(B1,$A$1:$B$500,2,FASLE)&,然后拖到C500单元格，C列有数值的说明B ...谢谢哈。。。
论坛好贴推荐
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
为做大做强论坛，本站接受风险投资商咨询，请联系（010-）
邮箱：service@pinggu.org
合作咨询电话：(010)
广告合作电话：（刘老师）
投诉电话：(010)
不良信息处理电话：(010)
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师您的举报已经提交成功，我们将尽快处理，谢谢！
=countif(A:A,0)
这是求0有几个的,
依此类推。
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'

我要回帖

更多关于 删除一行重复单元格 的文章

 

随机推荐