关于进度表中，月份单元格的自动合并问题

rbq555

关于进度表中，月份单元格的自动合并问题。
各位老师好：
怎样根据日期的变化，将同一月份的单元格自动合并成一个大的单元格，达到附件中的效果。
附件 进度表.rar (10.29 KB, 下载次数: 54)

2012-1-20 10:05 上传

点击文件名下载附件

doitbest

没时间仔细研究,这个问题在VBA板块会得到较好解决的

doitbest

1. Public Sub arrange1()
   
2. Dim a As Range, b As Range, x As Range
   
3. Application.DisplayAlerts = False
   
4. [e5:ai5].UnMerge
   
5. [e5:ai5].NumberFormatLocal = "yyyy年m月"
   
6. [e6:ai6].NumberFormatLocal = "d"
   
7. [e6] = [P3]
   
8. [e6:ai6].DataSeries Date:=xlDay, Step:=([V3] - [P3]) / 30
   
9. For Each x In [e6:ai6]
   
10.     If x.Column = 5 Then Set a = x: GoTo 100
    
11.     If x.Column = 35 Then
    
12.         Set b = x
    
13.         Range(a, b).Offset(-1).Merge
    
14.         Range(a, b).Offset(-1)(1) = Format(a, "yyyy年m月")
    
15.         Exit Sub
    
16.     End If
    
17.     If Day(x) < Day(x.Offset(0, -1)) Then
    
18.         Set b = x.Offset(0, -1)
    
19.         Range(a, b).Offset(-1).Merge
    
20.         Range(a, b).Offset(-1)(1) = Format(a, "yyyy年m月")
    
21.         Set a = x
    
22.     End If
    
23. 100:
    
24. Next
    
25. [e5:ai5].Borders.LineStyle = xlContinuous
    
26. Application.DisplayAlerts = True
    
27. End Sub

复制代码

doitbest

请参考附件

rbq555

doitbest 发表于 2012-1-25 11:05
请参考附件

doitbest  老师：新年好！

你在大年初三，还能帮我解决问题，真是十二万分感谢！
在这个家里，真是太好了。这一次的谢谢你、老师！

doitbest

能帮忙很开心,回祝新年快乐!

3689536

是好用，要是再增强能合并后生成隔线就更完美