Excel中批量插入图片table函数

Excel中并没有直接批量插入图片的函数，但可以借助VBA宏实现。以下是一个简单的VBA宏代码：

Sub InsertPictures()
    Dim sFolderPath As String, sFilename As String
    Dim rng As Range
    Dim i As Integer
    
    '选择要插入图片的单元格范围
    Set rng = Application.InputBox("Select range to insert pictures", Type:=8)
    
    '选择图片文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder with pictures"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Sub
        sFolderPath = .SelectedItems(1)
    End With
    
    '循环插入图片
    i = 1
    sFilename = Dir(sFolderPath & "\*.jpg")
    Do While sFilename <> ""
        rng.Cells(i).Activate
        ActiveSheet.Pictures.Insert(sFolderPath & "\" & sFilename).Select
        i = i + 1
        sFilename = Dir
    Loop
    
End Sub

使用步骤：

1. 打开Excel文件后，按下Alt+F11键进入VBA编辑器。
2. 在VBA编辑器中，选择“插入”->“模块”，将上面的代码复制到新建的模块中。
3. 返回Excel界面，在需要插入图片的单元格范围上单击右键，选择“运行宏”，选择“InsertPictures”并点击“运行”。
4. 选择包含图片的文件夹并点击“确定”。
5. 程序将自动在选定的单元格范围中插入所有图片。