(完整)word文档批量合并每一行或每一列
(完整)word文档批量合并每一行或每一列
编辑整理：
尊敬的读者朋友们：
这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（(完整)word文档批量合并每一行或每一列）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。
本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快业绩进步，以下为(完整)word文档批量合并每一行或每一列的全部内容。
代码(代码不是乱码，是我用的Blackadder ITC字体，不影响复制粘贴）:怎么办理支付宝
Sub 批量合并每一行的单元格（) ’运行前先选中要合并的单元格
放松音乐Dim mytable As Word.Table
Dim mycells As Word.Cells
Dim mycell(） As Integer
Set mytable = Selection。Tables（1)
Set mycells = Selection。Cells
ReDim mycell（mycells。Count, 1)
For i = 1 To mycells.Count
mycell（i - 1, 0） = mycells.Item（i）。RowIndex
mycell（i — 1， 1） = mycells.Item（i).ColumnIndex
Next i
Dim p: p = 0
word打开是乱码For 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 = k
End If
Next k
End Sub
Sub 批量合并每一列的单元格（） '运行前先选中要合并的单元格
Dim mytable As Word。Table
Dim mycells As Word。Cells
Dim mycell（) As Integer
Set mytable = Selection.Tables(1）
Set mycells = Selection.Cells
ReDim mycell(mycells.Count， 1)
For i = 1 To mycells。Count
mycell(i， 0） = mycells.Item（i）。RowIndex
mycell（i， 1) = mycells。Item(i）。ColumnIndex含反义词的成语有什么
紧凑型车质量排行榜
Next i
For 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 p
Next k
End Sub 'by baidu:cy9934303  qq:83661091
使用方法：
1。点击“开发工具”再点击“Visual Basic”如下
如果不到“开发工具"选项，如下图点击WORD选项
然后在弹出的对话框勾选“在功能区显示开发工具选项卡”，确定即可
2。打开“Visual Basic”后，双击下图箭头指的选项，然后将代码复制到弹出的框框里面即可。
3.使用的时候先选中要合并的单元格，如下图
在点击“宏"
弹出下面的对话框，选择合并每一行，点击运行即可合并完成.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。