VBA 第9课 合并单元格

来源:互联网 发布:王小二果园淘宝店铺 编辑:程序博客网 时间:2024/06/10 09:15

'单元格合并Sub b1()Range("a1:g2").MergeEnd Sub

'合并H列相同单元格Sub b2()Dim x As IntegerDim rg As rangeSet rg = range("h1")Application.DisplayAlerts = FalseFor x = 1 To 13    If range("h" & x + 1) = range("h" & x) Then        Set rg = Union(rg, range("h" & x + 1))    Else    rg.Merge    Set rg = range("h" & x + 1)    End IfNext xApplication.DisplayAlerts = TrueEnd Sub



转载请注明作者与出处:http://blog.csdn.net/u013511642  王小涛_同學


0 0
原创粉丝点击