怎样在1个工作薄（含多个工作表）中快速批量保留一个人的数据,删除其他人的数据?

Question

我有1个工作薄，含sheet1-shee10等10个工作表，每个工作表有张三、李四、王五......等2百多人，每个工作表中人们的序号是相同的（按姓氏拼音排序后设定的序号），但每个工作表中一个人所占的行数是不一样的，比如在sheet1、3、4中，每个人只占1行，，而在其他工作表中可能每个人所占行数是2行，或者是3行、或者是10行，现在要把这个工作薄（含10个工作表）发送给每1个人，让每个人核对完善个人信息，但由于涉及到个人隐私，不能给每个人发送完整的工作表（2百多人），只能一一对应的发送本人的工作表信息，那么怎样快速批量的在10个工作表中保留本人1人的数据,删除其他人的数据，以便发送给本人？

Answer 1

用VBA处理，处理方案
1、根据该工作薄自动（复制）生成每个人名字命名的工作薄（2百多个，有多少人有多少个）
2、批量批打开每个人名字的工作薄，每工作表删除本人外的内容（本人信息置顶行），并保存。
编写代码需要该工作薄模板（每表只留两个人格式，不方便看内容用字母和数字代替）附上来（百度网盘分享出来）。