EXCEL批量自动插入图片的宏，由列内单元格内容从图片文件夹中自动插入

Sub InsertPic()
Dim i As Long, sPath As String, sfileName As String
sPath = "D:\pic\"
Application.ScreenUpdating = False
On Error Resume Next
With ThisWorkbook.Sheets("Sheet1")
For i = 1 To 256
If .Cells(1, i) <> "" Then
sfileName = sPath & .Cells(1, i) & ".jpg"
Cells(2, i).Select
.Pictures.Insert (sfileName)
If Err <> 0 Then
MsgBox .Cells(1, i) & ".jpg" & "不存在"
Err = 0
End If
End If
Next i
End With
Application.ScreenUpdating = True
Range("A1").Select
End Sub