Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3453|回复: 17

[已解决]excl如何根据列内容不同自动加横线

[复制链接]
发表于 2015-5-10 08:37 | 显示全部楼层 |阅读模式
本帖最后由 flssyy 于 2015-5-10 08:43 编辑

在excl中,我有批数据,需要在不同户号之间用横线隔开来(如图),请教如何自动添加?谢谢!
最佳答案
2015-5-10 09:35
本帖最后由 baksy 于 2015-5-10 09:36 编辑
flssyy 发表于 2015-5-10 09:02
嗯,你看下

设置条件格式:
条件格式公式=$H1<>$H2
未命名.jpg
发表于 2015-5-10 08:44 | 显示全部楼层
本帖最后由 zyouong 于 2015-5-10 08:46 编辑

条件格式
回复

使用道具 举报

 楼主| 发表于 2015-5-10 08:47 | 显示全部楼层
zyouong 发表于 2015-5-10 08:44
条件格式

你好,能再详细些吗?
回复

使用道具 举报

发表于 2015-5-10 08:49 | 显示全部楼层
整行添加还是?
回复

使用道具 举报

 楼主| 发表于 2015-5-10 08:52 | 显示全部楼层
zyouong 发表于 2015-5-10 08:44
条件格式

请教逻辑条件如何设定?

请教逻辑条件如何设定?

请教逻辑条件如何设定?
回复

使用道具 举报

 楼主| 发表于 2015-5-10 08:53 | 显示全部楼层
Excel学徒123 发表于 2015-5-10 08:49
整行添加还是?

是整行添加。
回复

使用道具 举报

发表于 2015-5-10 08:56 | 显示全部楼层
本帖最后由 baksy 于 2015-5-10 09:46 编辑

设置条件格式:
条件格式公式=$H1<>$H2

个人家庭档案(附件).rar

61.54 KB, 下载次数: 4

回复

使用道具 举报

发表于 2015-5-10 08:58 | 显示全部楼层
flssyy 发表于 2015-5-10 08:53
是整行添加。

你这个没有规则可循吧,有的不一样的你也没加
回复

使用道具 举报

 楼主| 发表于 2015-5-10 09:02 | 显示全部楼层
baksy 发表于 2015-5-10 08:56
请上传excel附件

嗯,你看下

个人家庭档案(附件).zip

79.97 KB, 下载次数: 7

回复

使用道具 举报

发表于 2015-5-10 09:15 | 显示全部楼层
本帖最后由 Excel学徒123 于 2015-5-10 09:26 编辑
  1. Sub test()
  2.     Dim irow, i, rg As Range
  3.     irow = Cells(Rows.Count, "H").End(3).Row
  4.     For i = 2 To irow
  5.         If Cells(i, "h") <> Cells(i + 1, "h") Then
  6.             With Cells(i, "h").EntireRow.Borders(xlEdgeBottom)
  7.                 .LineStyle = xlContinuous
  8.                 .ColorIndex = 0
  9.                 .TintAndShade = 0
  10.                 .Weight = xlThin
  11.             End With
  12.         End If
  13.     Next
  14. End Sub
复制代码
代码运行之后如下图效果,下载附件吧
QQ图片20150510091317.png
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 22:58 , Processed in 0.694684 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表