专栏名称: Excel之家ExcelHome

excel技巧原创教程每日推送，excel表格职场模板干货仓库，图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程，助您轻松提高办公效率!

VBA常用小代码102：批量合并相同值单元格

Excel之家ExcelHome · 公众号 · Excel · 2017-11-30 07:45

正文

Set Rng = Application.InputBox("请选择单列数据列！", Type:=8)

'用户选择数据列

Set Rng = Intersect(Rng.Parent.UsedRange, Rng)

'intersect语句避免用户选择整列造成无谓运算

Col = Rng.Column

'Rng所在列

Fist = Rng.Row

'Rng开始行，用户选择的区域并不是一定从第一行开始，因此需要此句判断

Last = Fist + Rng.Rows.Count - 1

'Rng结束行

推荐文章

优设AIGC · 接不到私单？向国内外顶尖设计工作室学习

8 年前

经典短篇阅读小组 · 吟诗好似成仙骨，骨里无诗莫浪吟

8 年前

心理测试 · 两个人合不合适啪啪啪，关键看这一点

8 年前

创业最前线 · 一张图看懂滴滴出行

7 年前

台海军事热点 · 台胞证露面！和大陆身份证统一，可刷证坐高铁！

7 年前