[已解决][求助]关于批量合并单元格的问题

wbzxz

在数据透视表学习过程中，碰到一个单元格需要合并的问题，不知该如何解决，请各位老师与童鞋指点。

1.未合并前效果



2.合并前效果



单元格合并.zip (3.84 KB, 下载次数: 32)

2012-6-6 08:30 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lotte

2012-6-6 08:35

C2输入

1. =IF(A2="",C1,NOT(C1))

复制代码

跳转到最佳答案楼层

lotte

C2输入

1. =IF(A2="",C1,NOT(C1))

复制代码

JLxiangwei

lucking551

看动画

JLxiangwei

咋又是数据透视表了
单击数据透视表任意区域，右键数据透视表选项——布局与格式——合并且居中排列带标签的单元格勾选

jb_008

学习一下                             

wbzxz

JLxiangwei 发表于 2012-6-6 08:42
咋又是数据透视表了
单击数据透视表任意区域，右键数据透视表选项——布局与格式——合并且居中排列带标签 ...

呵呵，向伟啊，多谢你啦，有机会听你的课。

JLxiangwei

wbzxz 发表于 2012-6-6 09:16
呵呵，向伟啊，多谢你啦，有机会听你的课。

客气了，大家交流，共同进步

ws278106483

1. Sub heb()
   
2. Call tianc
   
3.   Dim x, mrg As Range
   
4.     Application.DisplayAlerts = False
   
5.      Set mrg = [A1]
   
6.       For x = 2 To Range("a65536").End(xlUp).Row + 1
   
7.         If Cells(x, 1) = Cells(x - 1, 1) Then
   
8.           Set mrg = Union(mrg, Cells(x, 1))
   
9.         Else
   
10.           mrg.Merge
    
11.           Set mrg = Cells(x, 1)
    
12.         End If
    
13.      Next x
    
14.     Application.DisplayAlerts = True
    
15.    
    
16. End Sub
    
17. Sub tianc()
    
18.   Dim x As Integer
    
19.   Dim mrg As Range
    
20.      Set mrg = [A1]
    
21.     For x = 1 To Range("b65536").End(xlUp).Row - 1
    
22.        If Cells(x + 1, 1) = "" Then
    
23.          Set mrg = Cells(x, 1)
    
24.         Cells(x + 1, 1) = mrg
    
25.         
    
26.         Else
    
27.         
    
28.         Set mrg = Cells(x, 1)
    
29.        End If
    
30.     Next x
    
31.    
    
32. End Sub
    
33. 
    

复制代码

ws278106483

附件跟上，不知道可不可以。楼主。