[已解决]如何用VBA批量合并没有边框的单元格

ww0000

附件中的表格，我想将没有边框的单元格都合并。并保留内容（有的是第一行，有的是中间的行，有的是最下方的行），请问用VBA如何实现？谢谢！

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-29 10:25

这个表做的太蛋疼了

Sub test()
    Application.DisplayAlerts = False
    For c = 1 To 5
        For r = 21 To 3 Step -1
            If Cells(r, c).Borders(xlEdgeTop).LineStyle = xlNone Then
                Cells(r - 1, c) = Cells(r - 1, c) & Cells(r, c)
                Range(Cells(r - 1, c), Cells(r, c)).Merge
            End If
        Next
    Next
    For r = 21 To 3 Step -1
        If Cells(r, 6).Borders(xlEdgeTop).LineStyle = xlNone Then Rows(r).Delete
    Next
    Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

Zipall

这个表做的太蛋疼了

Sub test()
    Application.DisplayAlerts = False
    For c = 1 To 5
        For r = 21 To 3 Step -1
            If Cells(r, c).Borders(xlEdgeTop).LineStyle = xlNone Then
                Cells(r - 1, c) = Cells(r - 1, c) & Cells(r, c)
                Range(Cells(r - 1, c), Cells(r, c)).Merge
            End If
        Next
    Next
    For r = 21 To 3 Step -1
        If Cells(r, 6).Borders(xlEdgeTop).LineStyle = xlNone Then Rows(r).Delete
    Next
    Application.DisplayAlerts = True
End Sub

ww0000

Zipall 老师：你好
首先要感谢你的帮助！
其次是要向老师说明，我这个表格是从一个PDF格式的表格转换过来的，所以不规则；
三是要再向老师请教，如何让合并之后的单元格里面的内容，删除空格，再居中？

free1024

恩,表格做的确实有点怪异...

Zipall

ww0000 发表于 2011-12-29 10:34
Zipall 老师：你好
首先要感谢你的帮助！
其次是要向老师说明，我这个表格是从一个PDF格式的表格转换过来 ...

原来如此

CTRL+H 查找内容里输入1个空格后单击全部替换

如果要代码的话,自己录个宏看看吧.

ww0000

空格是可以替换,但还是在不同的行。
我想合并到同一行。
也就是要去除换行
录了一个宏，运行错误

ww0000

Zipall 老师，问题已解决，只是最下方的边框少了一条，代码哪个地方出了问题？

ww0000

再一个，如果换另外的表，代码哪个地方要怎样改？谢谢！！

Zipall

ww0000 发表于 2011-12-29 11:29
再一个，如果换另外的表，代码哪个地方要怎样改？谢谢！！

1 to 5 是1到5列 删除时参考第6列
21 to 3 是21行到第3行
其它可能不需要改动了.

Zipall

ww0000 发表于 2011-12-29 11:28
Zipall 老师，问题已解决，只是最下方的边框少了一条，代码哪个地方出了问题？

在end sub之前添加

    r = Range("d65536").End(xlUp).Row
    Cells(r, 1).Resize(1, 7).Borders.LineStyle = xlContinuous