你這個問題可以用VBA解決,

1.把這個excel檔案和這100個照片檔案放在同一個目錄中,照片副檔名為JPG(如果照片的副檔名不是JPG,修改程式碼第三行中副檔名部分為相應的副檔名).

2.在這個工作表的名稱上點滑鼠右鍵,選檢視程式碼貼上以下程式碼到彈出的VBA編輯視窗,然後關閉VBA編輯視窗返回,在該工作表視窗按ALT+F8 選中名稱為check的宏,點執行

Sub check()

Dim Rng As Range, SFZName As String

SFZName = Dir(ThisWorkbook.Path & "\*.jpg")

If SFZName <> "" Then

Top = SFZName

Do

Set Rng = Range("A1:A200").Find(Left(SFZName, Len(SFZName) - 4), lookat:=xlWhole)

If Not Rng Is Nothing Then Rng.Offset(0, 1) = "有"

SFZName = Dir

Loop While Top <> SFZName And SFZName <> ""

End If

End Sub