合并单元格的难题！

henterwu · 发表于 2003-11-6 18:30

WORD中，必须将同列非空单元格合并到下一非空单元格之前一空单元格，合并数不等，由于数量较大（上千条），很费时费力，请教各位高人能否用函数或其他方法实现，小弟不胜感谢！！！

cxffxc · 发表于 2003-11-6 20:18

呵呵，可能只能手动了。

守柔 · 发表于 2003-11-7 04:14

如果你的表格在设计之前是每行相同单元格的，可以考虑使用VBA解决，你可以传一个附件上来，或许能够帮上你。

守柔 · 发表于 2003-11-7 05:59

Sub aa() For Each i In ActiveDocument.Tables(1).Range.Cells a = i.RowIndex b = i.ColumnIndex If i.Range.End - i.Range.Start > 1 And i.ColumnIndex > 2 Then ActiveDocument.Tables(1).Cell(Row:=a, Column:=1).merge MergeTo:=ActiveDocument.Tables(1).Cell(Row:=a, Column:=b - 1) End If Next i End Sub 注意以上代码只对有数据（内容）的单元格前的空单元格合并，后面的不合并。你将上述代码复制到VBA编缉器中（ALT+F11）中运行。

henterwu · 发表于 2003-11-7 07:06

这样已经很好了！，只要合并后将合并列移动一行就行。最后感谢守柔大师的慷慨相助。

henterwu · 发表于 2003-11-7 22:50

不好意思，似乎没有达到理想的效果... 可能我没有讲明白，要求如文件，只好再谢谢帮忙一下了。

D8UW1z1d.rar (2.42 KB, 下载次数: 20)

守柔 · 发表于 2003-11-8 06:55

对不起我看走眼了。不过行与列的合并难度截然不同。以下代码： Sub cellsmerge() Set mytab = ActiveDocument.Tables(1) On Error Resume Next For i = 1 To mytab.Rows.Count If mytab.Cell(i, 1).Range.End - mytab.Cell(i, 1).Range.Start > 1 Then For n = i + 1 To mytab.Rows.Count If mytab.Cell(n, 1).Range.End - mytab.Cell(n, 1).Range.Start > 1 Then mytab.Cell(i, 1).merge MergeTo:=mytab.Cell(n - 1, 1) Exit For End If Next n End If Next i End Sub 注：最后一个单元格请手动进行（根据你的附件，只在第一列中进行我试了一下运行速度较慢980 行的表格进行了14分钟）

[此贴子已经被作者于2003-11-8 14:13:03编辑过]

henterwu · 发表于 2003-11-8 19:29

很感动您的热心帮助，谢谢了！！！

		自动登录	找回密码
密码			免费注册