【烟花原创】VBA零基础之第77篇 单元格对象Range（二十一）

hwc2ycy

ListNames 方法

　从指定区域的第一个单元格位置开始，将所有未隐藏的名称的列表粘贴到工作表上。

　在技巧中，其实很多童鞋应该也有用到过对应的操作。

　选中公式 选项卡，定义的名称 组，点击 粘贴名称，在 粘贴名称 窗口中点击 粘贴列表。
　　

　示例：

　　Range("a1").ListNames

　　'代码执行前先自行添加几个名称

　当工作簿或工作表中无定义的名称，该方法执行时也不会产生报错。

　效果图如下：

　　

Merge 方法

　由指定的 Range 对象创建合并单元格。

　语法：Merge(Across)

　　Across 可选。

　　　如果为 True，则将指定区域中每一行的单元格合并为一个单独的合并单元格。

　　　默认值是 False。

　说明：合并区域的值在该区域左上角的单元格中指定。

　合并单元格时会一个提示，如下图：
　　

　可以设置Application对象的DisplayAlertsnt属性为False，实现不显示提示。

　提示虽然没有显示，实际上是Excel选择了默认的确定。

　需要注意下，不同的对话框默认按钮是不同的。

　示例１：

　　Dim i As Byte

　　Application.DisplayAlerts = False

　　'不显示合并时的提示

　　For i = 1 To 11 Step 2

　　　Range("a" & i & ":a" & i + 1).Merge

　　Next

　　Application.DisplayAlerts = True

　合并前数据截图：
　　

　示例1效果图：

　　

　示例2：

　　Application.DisplayAlerts = False

　　Range("a1:a2").Merge

　　'对合并了的单元格再次执行合并

　　Range("a3:a5").Merge

　　'对两个已经分别合并的单元格再次合并

　　Range("a8:a10").Merge

　　Application.DisplayAlerts = True

　示例2效果图：
　　

　示例3：

　　‘Cross参数的使用

　　Application.DisplayAlerts = False

　　Range("a1:c12").Merge True

　　Application.DisplayAlerts = True

　　'当Cross参数为True时，要求至少有两列，否则无合并效果。
　示例外数据截图：
　　
　示例3效果：
　　

yewei113

学习了

sklzz888

tingfeng461002

ANDY0393

Merge 方法
　由指定的 Range 对象创建合并单元格。
　语法：Merge(Across)
　　Across 可选。
　　　如果为 True，则将指定区域中每一行的单元格合并为一个单独的合并单元格。
　　　默认值是 False。
谢谢分享，标记，七十七