vba中的MergeArea及MergeCells操作（VBA版本）
发布时间
阅读量：
阅读量
一、该MergeArea 属性用于获取并表示包含指定单元格范围内的所有合并单元格，并且是一个不可修改属性。注意：在本实现中，默认情况下 Range仅支持单个单独使用的 Unit 组件
Sub about_MergeArea()
Dim merge_rng As Range
[a1:a3].Merge '合并 [a1:a3] 单元格
Set merge_rng = Range("a2").MergeArea '返回包含 [a2] 的合并单元格区域
merge_rng.Select
End Sub该Range.MergeCells属性用于判断所指区域内是否包含被合并的单元格，在符合条件时会返回布尔值True，并支持读写操作
Sub about_MergeCells()
Dim merge_rng As Range
[a1:c3].Merge '合并 [a1:a3] 单元格
Set merge_rng = [a2].MergeArea
bool_value = [a2].MergeCells
If bool_value Then
[a2].MergeCells = Fals全部评论 (0)
还没有任何评论哟~