联系我们

工作时间: 8:30 - 22:00

客服电话: 400-660-0108

kefu@csdn.net 在线客服

关于我们
招贤纳士
商务合作
寻求报道
协议专区

友情链接
视觉中国
500px
直聘网
优设网
CSDN文库
CSDN下载
CSDN问答
京ICP备19004658号
经营性网站备案信息
公安备案号11010502030143
营业执照
北京互联网违法和不良信息举报中心
家长监护
中国互联网举报中心
网络110报警服务
Chrome商店下载
账号管理规范
版权与免责声明
版权申诉
出版物许可证
©1999-2026北京创新乐知网络技术有限公司

Office开发/ VBA

全部
Ada助手

社区 >Office开发/ VBA >帖子详情

如何找出Excel一列中相同的值

2010-04-29 06:12:53 401 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xiaoping860823 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网我也要 → 关注 + 加入社区

excel表把某一列中相同值进行合并，把该值对应的各行的值进行合并把A列值相同的合并成一行，B列值不同，把B列的值合并成一个单元格，用逗号分隔 A B --------------------------------------------- 1 a 1 b 2 a 2 b ------------------------------------合并成 1 a,b 2 a,b 遇到类似的问题阅读详情

如题

...全文

配置赞助广告

EXCEL第一列内容相同的，第二列单元格内容相应合并在同一个单元格 EXCEL第一列内容相同的，第二列单元格内容相应合并在同一个单元格Excel 问题描述抽取第一列中的相同内容抽取第二列内容道绿框中第二列 Excel 问题描述红色框是原始的数据，我的目的是想要通过红色框的转换成绿色框内容。当然方法有很多，编程可以实现。今天先讲下如何直接使用Excel解决这个问题的。抽取第一列中的相同内容以下这个链接中的内容解决了这个问题。 EXCEL极速批量合并相同单元格抽取第二列内容道绿框中第二列在做这个的时候参考了一些网上资料，最后绝对用VBA函数来实现。如何自定义一个函阅读详情

相关推荐

EXCEL对比两列数据-找出相同和不同-并标注色彩.xlsx

EXCEL对比两列数据-找出相同和不同-并标注色彩.xlsx

excel数据对比-查找两列相同数据(可编辑修改word版).docx

excel数据对比-查找两列相同数据(可编辑修改word版).docx

找出同列中的相同数据

可在在OFFICE中找出同列中的相同数据，非常管用！

如何让excel表格中的两列数据相同的排列在一行(1).pdf

如何让excel表格中的两列数据相同的排列在一行(1).pdf

jxl 实现excel 比较两列

比较两列中存在不同的值；找出在一列中存在相同的值

3

已收藏

如何找出Excel一列中相同的值

如题

复制链接

扫一扫

返回顶部

Office开发/ VBA · 5,174 成员 · 17,906 内容

+ 关注 + 加入社区

评论 3

切换为时间正序

ACMAIN_CHM 2010-04-29

打赏
举报

回复

楼上的太复杂了。

直接用条件格式就行了。

QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》

ssniu1985 2010-04-29

打赏
举报

回复

上面错了
这个
Private Sub CommandButton1_Click()

Dim j As Integer
Dim m As Integer
Dim i As Integer

j = 1
m = 2

For i = 1 To 20

For j = 1 To 20

If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 3).Text Then

Cells(j, 3).Interior.ColorIndex = m + 1
Cells(i, 3).Interior.ColorIndex = m + 1

End If
Next j

If Sheet1.Cells(i, 3).Text = "" Then
GoTo mex
End If

m = m + 1

Next i
mex:
End Sub

ssniu1985 2010-04-29

打赏
举报

回复

是kenny吧？？哈哈我allen 我回去试了下可以把分给我哦！！！
Private Sub CommandButton1_Click()

Dim j As Integer
Dim m As Integer
Dim i As Integer

j = 1
m = 2

For i = 1 To 20

For j = i + 1 To 20

If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 3).Text Then

Cells(j, 3).Interior.ColorIndex = m + 1
Cells(i, 3).Interior.ColorIndex = m + 1

End If
Next j

If Sheet1.Cells(i, 3).Text = "" Then
GoTo mex
End If

m = m + 1

Next i
mex:
End Sub