如何用vb代码对整个excel表格中的相同内容的单元格进行快速合并？

康康天下6506

求助各位高手:如何用vb代码对整个excel表格中的相同内容的单元格进行快速合并？谢谢。。例子如附件。。

该贴已经同步到 康康天下6506的微博

jsxjd

1. Private Sub CommandButton1_Click()
   
2.     Application.DisplayAlerts = False
   
3.     For i = 1 To [A1].CurrentRegion.Columns.Count
   
4.         r = 1: n = 1
   
5.         For j = 2 To [A1].CurrentRegion.Rows.Count + 1
   
6.             If Cells(j, i) = Cells(j - 1, i) Then
   
7.                 n = n + 1
   
8.             Else
   
9.                If n > 0 Then Cells(r, i).Resize(n, 1).MergeCells = True
   
10.                 n = 1: r = j
    
11.                 If Cells(r, i) = "" Then Exit For
    
12.             End If
    
13.         Next
    
14.     Next
    
15. End Sub

复制代码

jsxjd

如何快速合并相同内容的单元格？.rar (9.09 KB, 下载次数: 189)

2014-8-22 12:17 上传

点击文件名下载附件

康康天下6506

jsxjd 发表于 2014-8-22 12:17

非常感谢“jsxjd”的回复。谢谢！我发的附件的问题已经解决。。但是我运行后突然想到一个问题就是如果我是整个表都有这些数据呢？？而且可能是有空行的，，那该怎么解决啊？谢谢

jsxjd

康康天下6506 发表于 2014-8-22 15:35
非常感谢“jsxjd”的回复。谢谢！我发的附件的问题已经解决。。但是我运行后突然想到一个问题就是如果我是 ...

数据要有代表性，楼主可以重新发附件
适当增加一些判断

康康天下6506

非常感谢“jsxjd ”的回复。。谢谢。。说声不好意思。。因为刚学，而且也没有想得仔细。。我已经重新发附件。。麻烦帮忙解决一下。。谢谢！

康康天下6506

jsxjd 发表于 2014-8-22 15:38
数据要有代表性，楼主可以重新发附件
适当增加一些判断

非常感谢“jsxjd ”的回复。。谢谢。。说声不好意思。。因为刚学，而且也没有想得仔细。。我已经重新发附件。。麻烦帮忙解决一下。。谢谢！

jsxjd

康康天下6506 发表于 2014-8-22 16:00
非常感谢“jsxjd ”的回复。。谢谢。。说声不好意思。。因为刚学，而且也没有想得仔细。。我已经重新发附 ...

这个数据又太不实际，行列都有断点
中间的空单元格要合并吗？

康康天下6506

jsxjd 发表于 2014-8-22 16:27
这个数据又太不实际，行列都有断点
中间的空单元格要合并吗？

(*^__^*) 嘻嘻……其实有时会出现这个情况的。。中间的也不用管它的啦，，就是针对有文字的单元格进行处理就可以了。。谢谢

jsxjd

1. Private Sub CommandButton1_Click()
   
2.     Application.DisplayAlerts = False
   
3.     For i = 1 To UsedRange.Columns.Count
   
4.         r = 1: n = 1
   
5.         For j = 2 To UsedRange.Rows.Count + 1
   
6.             If Cells(i) <> "" Then
   
7.                 If Cells(j, i) = Cells(j - 1, i) Then
   
8.                     n = n + 1
   
9.                 Else
   
10.                    If n > 0 Then Cells(r, i).Resize(n, 1).MergeCells = True
    
11.                     n = 1: r = j
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.     Next
    
16. End Sub

复制代码