如何自动合并相同内容单元格

cl02010201

如图，以行的形式对日期进行排列，现在需要将同一月份的日期在另一行只显示年和月，如何根据日期的自动变化而使另一行的年月也相应的自动变化？
如图中的第2行，根据第一行的日期自动将相同年月的单元格合并并显示其年份和月份，现在的问题是如果第1行的日期变化了，如变成2月和3月，那么第2行的年月显示如何相应的跟着变化，而且能够正确对应当月日期的所有单元格？我想的办法是先在第2行得到第1行的年月，就像第7行显示的一样，然后再将有相同内容的单元格进行合并，但是该如何能够进行自动合并呢？有什么公式吗，或者需要用代码进行解决？


针对我的这个问题还有其它什么办法能够解决吗？请高手赐教！

102339267

用WPS，直接有合并相同内容单元格的功能的

cl02010201

102339267 发表于 2018-2-27 12:16
用WPS，直接有合并相同内容单元格的功能的

额，只能用excel，而且要根据日期自动合并，日期变化的话合并项也要跟着变化

小晴哥

选中相同月份然后Ctrl+M快捷键，或者格式刷

小晴哥

看看大神做的

cl02010201

小晴哥 发表于 2018-2-27 16:35
看看大神做的

感谢关注和回复，看了大神的动画，不太适用于我这个应用场景，我这个后期数据还在增加，所以需要动态的合并，如果改变了部分数据，也需要重新自动判断和合并，我估计只能是使用VBA来实现了。不过还是感谢你的回复。

ww87725244

1. Sub aa()
   
2. Dim i&
   
3. Application.ScreenUpdating = False
   
4. With Sheet1
   
5.     For i = .UsedRange.Columns.Count To 2 Step -1
   
6.         If Format(.Cells(1, i), "yyyy年mm月") = Format(.Cells(1, i - 1), "yyyy年mm月") Then
   
7.             .Range(.Cells(3, i), .Cells(3, i - 1)).Merge
   
8.             .Range(.Cells(3, i), .Cells(3, i - 1)).Value = Format(.Cells(1, i), "yyyy年mm月")
   
9.         End If
   
10.     Next
    
11. End With
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码