如何用vba合并word表格的单元格?

2020年3月15日 作者：水星Excel
7,887 次浏览 2条评论

word表格中的单元格可以合并。

在vba中如果要合并word单元格，可以使用Cell对象的Merge方法。

其中Cell对象的Merge方法的语法如下：

object.Merge (MergeTo)

其中MergeTo参数为要合并的单元格区域的右下角单元格对象，而object对象为要合并的单元格区域的左上角单元格对象。

比如如下的代码将合并word表格中的第一个单元格和第二行第5列为结尾的单元格区域：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    Dim oCell As Cell
    With oDoc
        Set oT = .Tables(1)
        With oT
                .Cell(1, 1).Merge .Cell(2, 5)
        End With
    End With
End Sub

除了使用上述方法，还可以用Selection对象的Cells对象直接合并已经选中的单元格区域。

其它相关文章推荐：

分类 :  VBA , WORD VBA
标签 :  , ,
       

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 

仅有1条评论 发表评论

  1. 匿名 /

    行列单元格申明变量纯属多余

  2. 匿名 /

    谢谢水星大佬
    还有个方案可以合并多个单元格
    ActiveDocument.Range( OT.Cell(1, 1).Range.Start, OT.Cell(1, 4).Range.End).Cells.Merge

发表评论