台州招聘网站建设河北seo公司

继续学习！

'单元格合并Sub h1()Range("g1:h3").Merge		'End Sub'合并区域的返回信息Sub h2()Range("e1") = Range("b3").MergeArea.Address '返回单元格所在的合并单元格区域End Sub'判断是否含合并单元格Sub h3()'MsgBox Range("b2").MergeCells' MsgBox Range("A1:D7").MergeCellsRange("e2") = IsNull(Range("a1:d7").MergeCells)Range("e3") = IsNull(Range("a9:d72").MergeCells)End Sub'综合示例'合并H列相同单元格Sub h4()Dim x As IntegerDim rg As RangeSet rg = Range("h1")Application.DisplayAlerts = FalseFor x = 1 To 13If Range("h" & x + 1) = Range("h" & x) ThenSet rg = Union(rg, Range("h" & x + 1))Elserg.MergeSet rg = Range("h" & x + 1)End IfNext xApplication.DisplayAlerts = TrueEnd Sub