欧美人体艺术 VBA（10）_归并单位格常识

在 VBA 中欧美人体艺术，Range.Merge 神色用于归并指定的单位格区域。代码如下

Sub 归并单位格() Range('C3:C5').MergeEnd Sub

要是要取消归并的单位格，代码如下：

Sub 取消归并单位格()   Range('C3:C5').UnMergeEnd Sub

判断有莫得归并单位格欧美人体艺术，代码如下

Sub 判断归并单位格() If Range('C3:C5').MergeCells Then 'Range对象的MergeCells属性判断有莫得归并单位格 MsgBox '有归并单位格' Else MsgBox '莫得归并单位格' End IfEnd Sub

归并本色酌量的流畅单位格，代码如下

Sub 归并酌量本色的流畅单位格()    Dim IntRow As Integer， i As Integer    '界说称号为IntRow、i，类型为Integer    Application.DisplayAlerts = False    '关闭屏幕刷新        With Sheet1        'With语句主要用于对特定对象进行一系列操作，以简化代码书写和进步代码可读性            IntRow = .Range('A65536').End(xlUp).Row            'IntRow就是临了一个非空行号，即摈弃为19                For i = IntRow To 2 Step -1                '轮回i 就是临了非空行号的值到第2行，递减1，即摈弃为16 to 2                    If .Cells(i， 1).Value = .Cells(i - 1， 1).Value Then                    '要是第i（初始：19）行第1列单位格的值，就是第i（初始：19）行-1第1列单位格的值                       .Range(.Cells(i - 1， 1)， .Cells(i， 1)).Merge                       '第i行（初始：19）行-1第1列单位格和第i行（初始：19）行单位格区域归并                    End If                Next        End With    Application.DisplayAlerts = True    '怒放屏幕刷新End Sub

动画后果如下

图片

取消归并单位格并保留本色，代码如下

来吧Sub UnMerge() Dim StrMer As String Dim IntCot As Integer Dim i As Integer With Sheet1 For i = 2 To .Range('A65536').End(xlUp).Row StrMer = .Cells(i， 1).Value IntCot = .Cells(i， 1).MergeArea.Count .Cells(i， 1).UnMerge .Range(.Cells(i， 1)， .Cells(i + IntCot - 1， 1)).Value = StrMer i = i + IntCot - 1 Next End WithEnd Sub

本站仅提供存储职业，统共本色均由用户发布，如发现存害或侵权本色，请点击举报。