Question

如何将图片批量插入EXCEL合并单元格中

我目前在做固定资产卡片，要将每个固定资产二维码的图片插入到EXCEL中，工作实在太繁重，
在网上查找了方法，都不实用，因为我的表格很多都是合并单元格
D7要插入以D5的内容命名的图片
N7要插入以N5的内容命名的图片
X7要插入以X5的内容命名的图片
D18要插入以D16的内容命名的图片
N18要插入以N16的内容命名的图片
X18要插入以X16的内容命名的图片
D29要插入以D27的内容命名的图片
N29要插入以N27的内容命名的图片
X29要插入以X27的内容命名的图片
D40要插入以D38的内容命名的图片
N40要插入以N38的内容命名的图片
X40要插入以X38的内容命名的图片
D51要插入以D49的内容命名的图片
N51要插入以N49的内容命名的图片
X51要插入以X49的内容命名的图片
D62要插入以D60的内容命名的图片
N62要插入以N60的内容命名的图片
X62要插入以X60的内容命名的图片
D73要插入以D71的内容命名的图片
N73要插入以N71的内容命名的图片





Answer 1

点击插入-图片-找到图片所在文件夹-如果的连续的图点击第一张然后按住shift点击最后一张，最后点击插入即可；如果不是连续的按住ctrl点击所需的图再点击插入即可：

Answer 2

试试这个

Sub 插入图片()
        
    Dim name As String
    Dim n As Long
    
    n = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row
    
    For r = 1 To (n - 4) / 10
    For c = 1 To 3
    
    name = "D:\Pic\" & Cells((r - 1) * 11 + 5, (c - 1) * 10 + 4) & ".jpg"
    
    Debug.Print name
    Cells((r - 1) * 11 + 7, (c - 1) * 10 + 4).Select
    ActiveSheet.Pictures.Insert(name).Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
    
    Next c
    Next r
    
End Sub