用VBA实现插入根据行号与纯数字命名的图片，代码如下：以黏贴二维码图片为例

Sub 黏贴二维码图片() '这个是根据行号插入图片

    Dim ws As Worksheet
    Dim lastrow As Long
    Dim h As Long
    Dim filename As String
    Dim ff As Integer
    Dim rng As Range
    Dim picw As String
    
    Set ws = Sheets("sheet1")
    
    lastrow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row
    
    picw = "C:\Users\A\Desktop\数据处理\"
    
    filename = Dir(picw & "*.png")
    
    Do While filename <> ""
    
        For h = 2 To lastrow
        
           ff = CInt(Left(filename, InStr(filename, ".") - 1)) '由于图片是数字命名但是是文本形式所以需要转换成数字格式
            
            If h = ff Then ' 所在行号与图片命名数字一致就走if语句
            
               Set rng = Range("E" & ff) '插入E列的ff行
               
               ws.Shapes.AddPicture picw & filename, False, True, rng.Left, rng.Top, rng.Width, rng.Height
               
               Exit For '匹配到后退出循环为了不让所在文件夹图片产生副本
            
            End If
        
        Next h
        
        filename = Dir
    
    Loop
    
End Sub