麻烦高手帮忙解决几个问题

小灰灰520

这些天我在论坛里学习了一些代码，但是在使用过程中，发现有些地方需要修改一下，我是小白，不知道代码里哪些是变量，不会自己修改，麻烦高手帮忙看看，万分感谢！
问题1，第二步删除空行时，先判断是否整行都没有数据，如果是再删除，如果不是则保留，并且不管空行的位置是尾部还是中间位置？这里不知道是因为什么原因，无法删除空行了。
问题2，第三步公式转值，如果遇到以0开头的工号或身份证号，转值后会去掉0或是不能显示身份证号，可不可以全部改成转文本？
问题3，合并后那些合并单元格的第二行是空的，可否实现在合并过程中使第二行的内容等于第一行的内容，这样方便后期整理数据用。
问题4，在合并过程中，每个工作簿下都可能有多个工作表，只合并指定名称的工作表，这里指带有“考勤”二字的工作表数据。现有的代码是指定的sheet1，如果工作表顺序变了或想指定多个工作表名称，应该怎么改写呢？

2023年1月考勤合并.zip (145.2 KB, 下载次数: 7)

2023-3-3 10:24 上传

点击文件名下载附件

shiruiqiang

解决问题2:写入数组前 Sheets("合并考勤").Range("f:f").NumberFormat = "@"

shiruiqiang

问题4:增加或修改几行代码吧：已标示

小灰灰520

shiruiqiang 发表于 2023-3-4 07:35
问题4:增加或修改几行代码吧：已标示

老师，按照您给的代码修改后OK啦
还有一个问题，我在别的表中可能会用到一个工作簿多个工作表，需要合并指定的几个工作表的数据，请问这种情况也可以直接修改下面这句实现吗？应该怎么修改呢？
If InStr(sht.Name, "考勤") > 0 Then

小灰灰520

shiruiqiang 发表于 2023-3-4 07:25
解决问题2:写入数组前 Sheets("合并考勤").Range("f:f").NumberFormat = "@"

老师，这句应该加在哪个位置呢？我是小白，实在不清楚。
并且是必须在部门原始考勤表里就要把身份证列设置为文本才可以吗？
我之前试过在office2021里只要设置为文本格式，导入就显示正常的身份证号，但是由于工作使用的电脑版本太低，是2010版，设置为文本后，前三步都没有问题，在最后导入时就报错了，无法导入，难道和版本有关系吗？这个问题要怎么解决呢？