(最新整理)word文档批量合并每一行或每一列

1、(完整)word文档批量合并每一行或每一列(完整)word文档批量合并每一行或每一列 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（(完整)word文档批量合并每一行或每一列）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为(完整)word文档批量合并每一行或每一列的全部内容。合并前如上图表格要合并成下面的表格，只能一行一

2、行的合并,如果几十或上百行需要合并就会很麻烦。所以我自己写了一个vba脚本，批量合并每一行的单元格.合并后当然也可以合并每一列，如下图合并前合并后代码(代码不是乱码，是我用的blackadder itc字体，不影响复制粘贴）:sub 批量合并每一行的单元格（) 运行前先选中要合并的单元格dim mytable as word.tabledim mycells as word.cellsdim mycell(） as integerset mytable = selection。tables（1)set mycells = selection。cellsredim mycell（mycells。

3、count, 1)for i = 1 to mycells.count mycell（i - 1, 0） = mycells.item（i）。rowindex mycell（i 1， 1） = mycells.item（i).columnindexnext idim p: p = 0for k = 1 to ubound（mycell) if mycell（p, 0) mycell(k， 0) then mytable.cell(mycell（p， 0)， mycell(p, 1)。merge mytable。cell（mycell(k - 1, 0）, mycell（k 1, 1） p =

4、k end if next kend subsub 批量合并每一列的单元格（） 运行前先选中要合并的单元格dim mytable as word。tabledim mycells as word。cellsdim mycell（) as integerset mytable = selection.tables(1）set mycells = selection.cellsredim mycell(mycells.count， 1)for i = 1 to mycells。count mycell(i， 0） = mycells.item（i）。rowindex mycell（i， 1) =

5、mycells。item(i）。columnindex next ifor k = 1 to mycell(ubound（mycell)， 1) mycell(1， 1) + 1 for p = ubound(mycell） to 1 step 1 if mycell（k, 1) = mycell(p, 1） then mytable.cell(mycell（k， 0)， mycell（k, 1）。merge mytable.cell(mycell(p， 0), mycell(p， 1)） exit for end if next pnext kend sub by baidu:cy9934303 qq:83661091使用方法：1。点击“开发工具”再点击“visual basic”如下如果找不到“开发工具选项，如下图点击word选项然后在弹出的对话框勾选“在功能区显示开发工具选项卡”,确定即可2。打开“visual basic”后