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

1、(完整)word文檔批量合并每一行或每一列(完整)word文檔批量合并每一行或每一列 編輯整理：尊敬的讀者朋友們：這里是精品文檔編輯中心，本文檔內容是由我和我的同事精心編輯整理后發(fā)布的，發(fā)布之前我們對文中內容進行仔細校對，但是難免會有疏漏的地方，但是任然希望（(完整)word文檔批量合并每一行或每一列）的內容能夠給您的工作和學習帶來便利。同時也真誠的希望收到您的建議和反饋，這將是我們進步的源泉，前進的動力。本文可編輯可修改，如果覺得對您有幫助請收藏以便隨時查閱，最后祝您生活愉快 業(yè)績進步，以下為(完整)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。點擊“開發(fā)工具”再點擊“visual basic”如下如果找不到“開發(fā)工具選項，如下圖點擊word選項然后在彈出的對話框勾選“在功能區(qū)顯示開發(fā)工具選項卡”,確定即可2。打開“visual basic”后