Excel Automation

Excel插入图片教程

一键批量将图片嵌入单元格：复制 VBA 代码、设置按钮、输入图片列号，适用于桌面端和移动端的详细指南。 点击回到首页

VBA 宏代码

复制到 Excel 的模块中



    
Sub InsertImagesByInputColumn()

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim urlCol As Variant
    urlCol = InputBox("请输入【图片 URL 所在的列号】" & vbCrLf & _
                      "例如：" & vbCrLf & _
                      "A 列 → 1" & vbCrLf & _
                      "B 列 → 2", "图片列号")

    If urlCol = "" Then Exit Sub
    If Not IsNumeric(urlCol) Then
        MsgBox "请输入有效的列号（数字）", vbCritical
        Exit Sub
    End If

    Dim imgColIndex As Long
    imgColIndex = CLng(urlCol)

    Dim lastRow As Long
    Dim lastCol As Long

    lastRow = ws.Cells(ws.Rows.Count, imgColIndex).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    ws.Cells(1, lastCol + 1).Value = "图片"

    Dim i As Long
    Dim imgUrl As String

    For i = 2 To lastRow
        imgUrl = Trim(ws.Cells(i, imgColIndex).Value)

        If imgUrl <> "" Then
            ws.Cells(i, lastCol + 1).Formula = _
                "=IMAGE(""" & imgUrl & """)"
        End If

        ws.Rows(i).RowHeight = 140
    Next i

    ws.Columns(lastCol + 1).ColumnWidth = 25

    MsgBox "完成：图片已嵌入单元格（Picture in Cell）", vbInformation

End Sub

## 前提
如果你打开的是csv文件需要先转换成excel文件
csv转excel步骤

1. 用 Excel 打开 CSV

2. 点击左上角
👉 文件

3. 点击
👉 另存为

4. 保存类型选择：
👉 Excel 启用宏的工作簿 (*.xlsm)

5. 点击 保存

6. 关闭 Excel

7. 重新打开这个 .xlsm

操作步骤

四步完成 VBA 图片按钮

### 1
① 打开 VBA 编辑器

打开 Excel

点击顶部菜单：
「开发工具」

如果你没看到「开发工具」👇

点击 文件

点击 选项

点击 自定义功能区

右侧勾选 开发工具

点击确定

点击 开发工具 → Visual Basic
              
### 2
② 插入代码

在左侧窗口找到你的 Excel 文件

右键点击 VBAProject(你的文件名)

选择 插入 → 模块

把上面的 整段代码粘贴进去

关闭 VBA 编辑器窗口
              
### 3 
③ 在 Excel 表格里添加按钮（重点）

回到 Excel

点击 开发工具

点击 插入

在「窗体控件」区域，选择 按钮

用鼠标在表格中拖出一个按钮

弹出窗口时：

选择：下载图片并插入单元格

点击 确定

按钮文字可以右键 → 编辑文字

改成：

👉 下载并显示图片
              
### 4

使用流程（最终用户操作）

确保 Excel 已保存

点击 下载并显示图片 按钮

弹窗输入：

图片 URL 所在列号

例如：

A列 = 1

B列 = 2

C列 = 3

点击确定

稍等，图片会自动显示在最后一列