图表中 如何将 相同图列项 合并

ayumilove

我想将 一个图表 内 相同名字的 图列项 合并在一起 用同一种颜色表示出来。
请问如何实现呢？
期望 效果

期望 效果

实际 效果

实际 效果

Excel文件 请参见 附件内 压缩包 内的 xls文

[ 本帖最后由 ayumilove 于 2011-2-15 12:27 编辑 ]

honggexjq

这个恐怕要用VBA了吧

dul

手工删除不需要的图列项即可

honggexjq

VBA试做了下，基本思路跟你原来的是一样的，循环添加数据系列，只不过用代码实现了一些自动化操作
请启用宏

1. Sub 图表测试()
   
2. Dim i%, rr%, cc%
   
3. cc = [a1].CurrentRegion.Columns.Count
   
4. rr = [a1].CurrentRegion.Rows.Count
   
5. Application.ScreenUpdating = False
   
6. ActiveSheet.Shapes.AddChart.Select
   
7. With ActiveChart
   
8.     .ChartType = xlColumnStacked
   
9.     For i = 2 To cc
   
10.         .SeriesCollection.NewSeries
    
11.         With .SeriesCollection(i - 1)
    
12.             .Name = "='Sheet2'!" & Cells(1, i).Address
    
13.             .Values = "='Sheet2'!" & Range(Cells(2, i), Cells(rr, i)).Address
    
14.             .XValues = "='Sheet2'!$A$2:$A$" & rr
    
15.             .Select
    
16.             If i Mod 2 Then
    
17.                 Selection.Interior.Color = RGB(96, 74, 123)
    
18.             Else
    
19.                 Selection.Interior.Color = RGB(149, 179, 215)
    
20.             End If
    
21.         End With
    
22.         If i > 3 Then
    
23.             .Legend.LegendEntries(.Legend.LegendEntries.Count).Select
    
24.             Selection.Delete
    
25.         End If
    
26.     Next
    
27. End With
    
28. Application.ScreenUpdating = True
    
29. End Sub
    

复制代码

ayumilove

高手啊
非常感谢

我先下载下来研究一下。