需要运用到宏命令　

　　如何生成新表的解决方法如下：

　　1、打开要处理的excel文档，

　　2、按alt+f11，打开vba编辑窗口，

　　3、双击左侧的this sheet,

　　4、在右侧的空白中输入下面的程序

　　Sub liyoushang()

　　Sheets(SheetsCount)CellsClearContents

　　k = 1

　　For i = 1 To SheetsCount - 1

　　For j = 1 To Sheets(i)Range("a6000")End(xlUp)Row

　　If WorksheetFunctionTrim(Sheets(i)Cells(j, 2)Text) = "B" Then 'B指公司名称，在此做相应替换

　　Sheets(i)Rows(j)Copy _

　　Destination:=Sheets(SheetsCount)Cells(k, 1)

　　k = k + 1

　　End If

　　Next

　　Next

　　End Sub

　　5、点击工具栏中的执行，

用文本框（双击文本框，设置文本框颜色为无线条色）就可以制作了。中间的连接线用自选图形里面的 连接符。

先画出来一个文本框，然后双击设置好格式（双击 文本框－－颜色与线条，改成无线条色，然后 点文本框（顶部 倒数第2组），设置4个边距均为0）。然后第一个框框就弄好了。

选中这个文本框，ctrl ＋鼠标左键，拖拽到适当的位置（比如最上面是 家族的族长，下面的第二层，是第二辈分的人，按要求摆放位置即可。这样所有的文本框均是同样的尺寸，同样的格式。

弄好了之后 ，再添加连接线。

每一页都是这样的编辑方式。可以根据大概情况，提前 弄出多页面来。

1、首先，新建EXCEL，输入几组数据作为图表引用的数据。

2、选择插入>图表，选择图表类型。

3、点击下一步，选择数据区域。

4、点击完成，生成图表，如下图所示。

5、根据需求对图表进行调整，在图表上点击鼠标右键，左键单击更改图表选项。

6、在分类轴、数值轴中输入X、Y轴名称，其它选项框还可以更改坐标轴、网格线、图例等等。

7、点击确定，完成图表更改。