【Excel VBA 编程】自动获取已选中区域：application.Selection

目录

 1.引言

2.实例1：选中任意列按内容合并单元格

2.1 需求描述

2.2 编码实现

2.3 代码分析

3.实例2：选中任意行按内容合并单元格

3.1 需求描述

3.2源代码

3.3 代码分析说明

4.回顾总结

---

 1.引言

在VBA中，application.Selection是一个非常有用的工具，它代表当前在Excel、Word或其他Office应用程序中选中的区域或内容。通过Selection对象，我们可以对选中的内容进行各种操作，如读取数据、修改格式或执行其他任务

下面根据两个实例来详细说明Selection使用方法

2.实例1：选中任意列按内容合并单元格

2.1 需求描述

将已选中的任意列中，相邻并且内容也相同的多个单元格合并到一起，例如，下图A2：A17区域中存在很多相邻且内容相同的单元格

单元格合并后的效果如下：

2.2 编码实现

友情提醒：凡是涉及到修改表格数据的操作，执行代码前养成备份数据的好习惯

Sub 相同内容单元格合并_列()
    Dim rng As Range, PreviousRng As Range, TargetRng As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    If Selection.Columns.Count > 1 Then MsgBox "只能选择单列": Exit