Sub 批次插入圖片()；Dim wj As String；Dim rng As Range；Sheets("sheet1").Select "選中要插入圖片的工作表；x = [a65536].End(xlUp).Row "取得最後一行的行號；For i = 2 To x； na = Cells(i, 1) "從第一列（即A列）得到照片名，並以此名查詢圖片； wj = "e:pic" &；"" & na & ".jpg" "圖片檔案儲存的路徑與格式（.jpg）； If Dir(wj) <> "" Then； Cells(i, 2).Select "圖片需要插入到第二列（即B列）； ；ActiveSheet.Pictures.Insert(wj).Select； Set rng = Cells(i, 5) "根據單元格的大小調整圖片； With Selection； .Top =；rng.Top + 1； .Left =；rng.Left + 1； .Width =；rng.Width - 1； .Height =；rng.Height - 1； End With； End If；Next；MsgBox "圖片插入完畢"；End Sub