请教各位大佬

shuya006

一行数据中有包含工号1，姓名1，工号2，姓名2，工号3，姓名3，工号4，姓名4.
如果只有工号1，姓名1，其余为0，则检查第二行，如果有不为0的，则复制，增加一行，把后面的工号，姓名放在工号1，姓名1的位置，以此类推。
请教下各大佬，这个功能用VBA咋弄

[url=链接：https://pan.baidu.com/s/1BhN_ftl5LS9urIYMtnRv-Q]  提取码：1111[/url]

shuya006

上条是附原文件，现附上图片