此段代码查找不出带字母的身份证号，怎样修改？

清浪纯水

Sub zp()
'本代码由 【百度知道】--常山大宝 编写。
'本代码经测试通过。如需转载，请注明出处，谢谢！
'把本代码复制到VBA对应的Sheet内，运行即可。
'假设A列从第2行到第121行为身份证号码
'照片存放路径为 D:\身份证照片\
'在B列从第2行到第121行对应的单元格内显示身份证号码是否有对应的照片
'发生错误后读取下一行
On Error Resume Next
'循环行
For i = 1 To 495
'定义文件变量集
Dim stmp$
'给出文件存放路径
stmp = Dir("D:\2021相片\", vbDirectory)
'开始遍历文件
'读取文件不为空
Do While stmp <> vbNullString
'提取含后缀的文件名
stmp = Dir()
'如果文件不是子文件夹
If stmp <> ".." Then
'不含后缀的文件名
fName = Left(stmp, InStrRev(stmp, ".") - 1)
'如果表中的身份证号码等于文件名
If Range("A" & i + 1) = Val(fName) Then
'在B列对应的单元格内显示有照片
Range("B" & i + 1) = "有"
'退出读取文件
Exit Do
End If
End If
'下一个文件
Loop
'下一个i值
Next
End Sub

清浪纯水

存数字身份证能查找出来，但是最后一位带字母的查不出来。

hfwufanhf2006

这段代码好像也没干什么特别的事，就是对照比较子文件名与A列的身份证是否相同，相同就在B列显示“有”;
如果不能检查带字母的身份证，很大可能是字母的大小写不一样，数字就不存在大小写的问题；